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SILICON COMPOSERS 



Performance, Quality, Service 



SC/FOX PCS32 ParaUel Coprocessor System32 

Uses the 32pbit SC32^ Forth CPU. 

System speed options: 8 or 10 MHz. 

Full-length 8- or 16-bit PC/XT/AT plug-in board, 

64K to IM byte, 0-wait-state static RAM. 

Hardware expansion, two 50-pin strip headers. 

Indudes SC/Forth32, based on the Forth-&3 Standard 




SC/FOX PCS ParaUel Coprocessor System 

Uses Harris RTX 2000*^ real-time Forth CPU. 
System speed options: 8 or 10 MHz. 
FuU-length 8- or 16-bit PC/XT/AT plug-in board 
S2K to IM bytes, 0-wait-state static RAM. 
Hardware expansion, two 50-pin strip headers. 
Includes FCompiler; SC/Forth optional. 




SC/FOX SBC Single Board Computer 

Uses RTX 2000 real-time Forth CPU. 
System speed options: 8, 10, or 12 MHz. 
32K to 512K bytes 0-wait-state static RAM. 
RS232 56K-baud serial and printer ports. 
Hardware expansion, two 5C^pin strip headers. 
64K bytes of shadow-EPROM space. 
Eurocard size: 100mm by 160mm. 
Includes FCompiler; optional SC/Forth EPROM. 




SC/FOX SCSI I/O Daughter Board 

Plug-on daughter board for SC/FOX PCS and SBC. 
Source s/w drivers for FCompiler and SC/Forth. 
SCSI adaptor with 5 Mbytes/sec ^chronous or 
3 Mbytes/sec asynchronous transfer rates. 
Floppy disk adaptor; up to 4 drives, any type. 
Full RS-232C Serial Port, 50 to 56K Baud. 
16-bit bidirectional, latching parallel port. 

SC/Forth"" Language 

Based on the Forth-83 Standard. 
15-priority time-sliced multitasking. 
Supports user-defined PAUSE. 
Automatic optimization and ;tcode support. 
Turnkey application support. 
Extended structures and case statement. 
Double number extensions. 
Infix equation notation option. 
Block or text file interpretation. 
Optional source-code developer system. 



SC32 Forth Microprocessor 

32-bit CMOS microprocessor, 34,000 transistors. 

One-clock cyde instruction execution. 

Non-multiplexed 32-bit address bus and data bus. 

16 gigabyte non-segmented data space. 

2 gigabyte non-segmented code space. 

8 or 10 megahertz full-static operation. 

Stack depths limited only by available memory. 

Interrupt and interrupt acknowledge lines. 

Bus request and bus grant lines with on-chip tri state. 

Wait state line for slow memory and I/O devices. 

85-pin PGA package. 



RTX 2000 Forth Microprocessor 

16-bit CMOS microprocessor in 84-pin PGA package. 

1-cycle 1^16 parallel multiplier. 

14-prioritized interrupts, one NMI. 

Two 256-word stacks. 

Three 16-bit timer/counters. 

8-channel multiplexed 16-bit I/O bus. 



Ideal for embedded real-time control, high-speed data acquisition and reduction, image or signal 
processing, or computation-intense applications. For additional information, please contact us at: 

SILICON COMPOSERS INC 208 California Avenue, Palo Alto, CA 94306 (415) 322-8763 
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DOUBLE-ENTRY BOOKKEEPING ■ JJ.MARTENS 

8 

Most people don't bother with a personal bookkeeping system, but it's a rare individual who doesn't have occasional 
use for a financial statement, de -BOOKS was conceived as the former, but the latter emerged as a by-product and — for 
some users — ^may well be the tail that wags the dog. 



DEVELOPING A STEP TRACE - CHESTER H. PAGE 
■ =v 14 

I . It is convenient to have a trace routine to display the stack(s), the name of the word being executed, and the resulting 
I stack(s). This author's routine provides some interesting features, and his development technique demonstrates three 
W distinct stages of refinement. 



MULTITASKING & CONTROLUNG REGULAR EVENTS 
T. HENDTLASS 
=1 17 

I • Forth can multitask easily enough, but it has no internal timer to schedule events at specific times. With an added timer 
I . and the multitasker, you can arrange for events to occur at predestined times. This paper describes such a timer for PCs, 
W as well as discussing the F83 multitasker and how to use CREATE ... DOES> to make new defining words. 



BINARY TABLE SEARCH - DAVID ARNOLD 
=^ 19 

A binary search of a table can be remarkably quick and can be adapted readily to various types of data. Usually, a part 

tof each record called the key field is set aside for a datum of a type that can be easily ordered and compared, to order 
and search the table conveniently. 



SEEING FORTH - JACK J. WOEHR 
28 

The author discusses the heritage and characteristics of Forth, and draws a connection between the Forth hardware of 
today and an archetypal Forth kernel. His eloquent English leads into some artful Forth code, a minimal assembler for 
the SC32 stack machine developed at Johns Hopkins University. 
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T 

JJie FIGGY award is presented by 
the Forth Interest Group to those whose 
efforts have contributed significantly to the 
Forth community. Jan Shepherd was hon- 
ored in 1989, joining the ten previous re- 
cipients, whose names are engraved on a 
plaque in the administrative offices and are 
listed in the "Reference Section" in this 
magazine. Jan heads the management team 
that takes care of FIG's daily business, the 
Association Development Center of San 
Jose, California. Anyone who knows her 
can attest that Jan is at every late-night 
meeting, convention booth, and crisis inter- 
vention. She and her staff have always been 
willing to outdo themselves on behalf of 
FIG and Forth Dimensions. 

While you are browsing the "Reference 
Section," you may note some changes. The 
list of on-line resources has been updated 
significantly, so be sure to revise your auto- 
dial instructions! And when you are on- 
line, be sure to leave a personal note to the 
SysOps. BBS 's are very interactive places, 
and the people running them not only ex- 
pect but need your input. Even if you aren't 
uploading lots of files or joining various 
debates, let the SysOps know you appreci- 
ate their efforts and tell them about the 
things you like or dislike. 

The autumn of each year brings a tradi- 
tion to the Forth community: the annual 
FORML conference. It is, perhaps, the 
most venerable Forth institution and the 
least well known; it may also be the most 
intimidating, especially when it comes to 



exposing your ideas to the intimate assem- 
blage of master-level Forth programmers. 
The most recent FORML was a sold-out 
affair, and long-time participant Peter 
Midnight is preparing a report for us which 
will be appearing shortly. The published 
proceedings look heftier than last year's 
edition; when it is available, you will find it 
on the FIG mail order form in these pages. 

While we were preparing this issue, 
word came that readers from around the 
world were preparing articles about Forth 
hardware. You will remember our call for 
articles on that subject earlier this year, in 
which we offered payment for the top three 
chosen by the referees. The promising pile 
of manuscripts on my desk has been grow- 
ing, with more due by the encroaching 
deadUne. Our editorial work is cut out for 
us, and you will be able to see the results in 
our next issue — see you then! 

— Marlin Ouverson 
Editor 
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LETTERS 



Bad Press and Still Unknown 
Dear Marlin, 

I finally decided to learn more about 
sorting and tackle Quicksort. Of course, I 
would use Forth to rapidly play around with 
the algorithm and write some neat displays. 
Hah! I perused past articles in FD to learn 
how to do it, and was stymied by Forth 's 
biggest weakness: it seems to encourage 
unreadable coding. 

For example, in FD V/5 page 29, 1 was 
nipped by the phrase: 

SWAP ROT 2 OVER 2 OVER - ROT ROT 
- < IF 2 SWAP THEN 

And in FD VI/5 page 29, 1 was duped by the 
phrase: 

ROT DROP DUP 2 PICK 2 PICK 2 
PICK = = AND 

Is it any wonder why Forth is still relatively 
unknown and gets bad press? Sure, other 
languages have their own confusing as- 
pects. For example, the phrase: 
(*(void(*) ) ) ; 

means something in C. But such horrors 
usually will not find their way into a begin- 
ners' text 

I looked at Quicksort in popular lan- 
guages. Then I experimented to see how 
easy it is to translate the algorithm into 
Forth. The enclosed listing is an almost 
word-for-word translation of Quicksort 
written in the C language. Even the control 
structures were translated. The big draw- 
back here is the prefix L, but I submit that 
it is more readable and maintainable than 
what was found in Forth. To add a running 
dump, for example, just add the phrase: 
L i L j L nr L pivot 
WORD . TO . SHOW . STATE 

In contrast, with Macho Stack Pumping it 
would require a rewrite to thrash the values 
into place. 



Another cause of unreadable code is the 
use of screens to store source. It is not 
natural. People are raised to see an 8.5" x 
11" paper as die natural size to hold words. 
This is started in school, and is maintained 
at work and even in personal correspon- 
dence. Further, modem word processors 
are evolving into WYSIWYG page design- 
ers. The fact that most systems cannot dis- 
play a whole page is temporary. The fact 
that a language insists on dividing source 
into half-pages is medieval. This adds to the 
uiu'eadableness of Forth, because too many 
times code and comments must be 
crammed to fit into half a page. 

As F-PC and other Forths have shown, 



interactive loading of source is still pos- 
sible with stream source. In F-PC, one can 
load a stream file starting at any line. This 
allows a fast edit/test cycle, as in block- 
oriented Forths. 

[Earlier this year,] a magazine had an 
article written by the owner of a Forth 
language supplier. He wrote C code to cre- 
ate Intel Hex Format files. I wonder, if he 
had used Forth, would it have been trans- 
portable, readable, and simple? Would the 
magazine have even pubUshed it? 

Sincerely, 
Jose Betancourt 
Sunnyside, New York 



Quicksort in F-PC using Parameter Stack Frcunes 



Quicksort ( adr. of . array, ^elements ) 
DUP 2 < \ Is ^elements less than two? 
IF 2DH0P \ exit sort, cannot be repartitioned 

ELSE ( sort this partition. ) 



by Jose Betancourt 
\ recursive Quicksort. 



L( adr ne \ i j temp nr pivot done ) 
A[0] 9 is temp L adr A[0] ! 
L ne 2 / AC9] IS pivot 
-1 IS i FALSE IS done L ne IS j \ 
BEGIN 
BEGIN 

L 



REPEAT 
BEGIN 



\ create parameter frame. 
\ point to array start. 
\ pick middle element, 

initialize pointers and flag. 

\ partition into two parts. 

\ find first element to move right, 
pivot < WHILE 



++ 1 



AC®] 



REPEAT 
L i L 
IF 

ELSE 

THEN 
UNTIL L ne 
L i L ne 2 



-- J 



> = 



\ 



\ find first element to move left, 
pivot > WHILE 



IF ( 

( 

ELSE 

THEN 
L temp 
THEN ; 



have the boundaries met ? 

TRUE IS done 

Li L j EXCHANGE[] \ i and j elements. 
L done \ partitions made? 

IS nr \ number of elements in right side. 
\ sort smallest partition first. 



L i 

/ < 



) 



first left side 
then right ) I 
( first right side ) 
( then left ) 



L adr L i 
i AC&] L nr 
L i A[&] 
L adr 



RECORSE 

RECURSE 
L nr RECURSE 
L i RECURSE 



AC0] ! S( ) \ reset array pointer and kill frame. 

\ End Quicksort 



/* 

Pre and post incrementing and decrementing local prefixes would 
be more compact and parallel the original language code. For example, 
L++ can fetch a local variable then increment the value stored there, 
whereas, ++L, can increment then fetch the value. Thus, the phrase 
"++ i L i A[e] " can be written as "++L i A[e]". 
*/ 
\S 



(Screens continued on next page.) 
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Screens Foreshadowed 
(but not shadow screens) 
DearMarlin, 

After seeing your response to Robert 
Hoffpauer and me on the source of "The 
rest is silence," [Letters, FD X/6), you 
deserve to get this... 

Shakespeare made a broad mark on the 
development of the English language. It's 
not widely known just ho w far ahead of his 
time he really was. I found he had penned 
this little far-seeing dedication to a myste- 
rious Mr. W.H. (who has never been unam- 
biguously identified) into the first edition 
of his sonnets in 1609: 

'To the onlie begetter of 
The insung sonnets 
Mr. W.H. all hsqjpinesse 
And that etemitie 
Promised 
by 

Our ever-living poet 
Wisheth 

The well-wishing 
Adventurer in 

Setting 
Forth" 

What could he have been doing, writing 
things with a title line, skip a Une, a four- 
teen-line structure. Did they have blocks 
back then? 

Glenn Toennes 
843 Maywood 
Escondido, California 92027 

Only writer's block. — Ed. 

Null Strings, Count Too! 
Dear Sir, 

I once encountered in print a rationali- 
zation of the null-delimited form of string. 
The author claimed the immense benefit of 
"...being able to operate on the string with- 
out having to know how long it is." This is 
claiming a virtue out of a feature you don't 
have anyway. Charles Moore did this when 
he disdained the use of floating-point arith- 
metic. There are cases where the null-de- 
limited form is vital. Anybody who passes 
strings to MS-DOS, for example, must do 
so in ASCIIZ, which uses the null-delim- 
ited format Most users seem to do their 
work in standard Forth format and define a 
word to perform the conversion as re- 
quired. 

A simple alternative is available, how- 
ever. This is to specify Forth strings to have 
aleadingcountbytea/u/atrailingnull. [See 
Figure One.] Thus, no special words are 
needed to pass a string parameter to MS- 



(Betancowt screens, continued.) 



\ EXAMPLE 

\ one way of defining the array access words 



CREATE VECT9 
CREATE VECT ! 



HOOP 
NOOP 



C! 



VARIABLE TYPE[] 

: Ve TYPE[] 9 2* VECT« + « EXECUTE ; 

: V! TYPE[] 9 2* VECT! + » EXECUTE ; 



VARIABLE A[0] 

A[&] ( ndx — adr) TYPE[] 9 * 

A[9] ( ndx — m) A[&] V9 ; 

A[!] ( n ndx) A[&] V! ; 



AC0] 



\ array of 9 vectors . 
\ array of ! vectors. 

\ bytes per cell 
\ vectored fetch. 
\ vectored store. 

\ pointer to 0th cell. 
\ array pointer. 
\ array fetch. 
\ array store. 



EXCHANGEE] 
L( i ) 



< i — ) 



\ exchange elements i and j of array. 



A[9] 



8 



L i 

\ testing words . 

CREATE storage 1 , 15 

2 CONSTANT integer 

: showarray 11 DO 

: TESTSORT 

storage A[0] ! 
A[&] 11 Quicksort 

\ End example. 



L j A[»] Li A[!] L j A[ ! ] 



SO 



10 



A[®] 3 .R LOOP 



9 , 6 



( 11 cells) 



integer TYPEC] ! CR 



showarray 



CR 



showarray 



DOS. The necessary changes to the kernel 
are quite small. The new string definition is 
ahnost upwardly compatible from the 
original. 

A more radical change (not yet imple- 
mented) would use a 16-bit count field and 
explicitly limit the maximum length of 
strings. 

Yours faithfully, 
J.D. Huttley 
19 Duncan Avenue 
Te Atatu Sth. 
Auckland 8 
New Zealand 

Primes Listing 



A Fast Thousand Primes 

Dear Sirs, 

I have enclosed a Forth program for 
possible inclusion into your magazine. 
The tide is "Primes," and it will compute 
the first 1000 prime numbers. It takes a 
little over two minutes to do this. 

It was written on an Amiga 500 using 
jForth. This is a good choice, as the single- 
length numbers are 32 bits. jForth also 
allows double-length (64 bits) numbers. 

The mode of operation is to maintain 
two lists of numbers: p r ime s keeps track 
of the prime numbers as they are 



Two sets of numbers are recorded. One is the primes, the other is the squares of the 
primes. The primes are used as the source of divisors. Note that the form: 
: word ( 10 3 ... 10 6 ) 
( 10 12 ... 10 6 ) 

• ■ ■ / 

is used to show various types of stack data and the results of each type of stack input. 

1100 array primes \ create 1100 slots 
1100 array prlmes"2 \ 

variable pointer* 

8100 constant max-integer 

variable integer 

: cleararray 1100 do i primes ! i primes'2 ! loop ; 

: flag-loop ; 

: flag-repeat ; 

: flag-done 1 ; 

: flag-true -1 ; 

: flag-false ; 



( Continued on next page.) 
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discovered; primes "2 keeps track of 
their squares. To check any number, a frac- 
tion is made by putting that number over 
each of a series of prime numbers. The 
primes checked begin with two and may 
continue to the square root of the next prime 
over the number being tested. Rather than 
performing a square root operation, the 
table of squares of primes is used. If the 
process of looking for a divisor of a given 
number cycles through all the lesser primes 
and arrives at one whose square is larger 
than the number, the process is stopped and 
the number is deemed to be prime. 

The process of division is replaced by a 
subtraction process. This (hopefully) is 
faster than division. It is done by doubUng 
the denominator and checking to determine 
if the new denominator is larger than the 
numerator. If not, it is again doubled, re- 
peatedly, until it is larger than the numera- 
tor. It is then divided in half to reduce it to 
less than the numerator, and this new de- 
nominator is now subtracted from the nu- 
merator. This process determines a new 
numerator. 

The process is continued until either a 
zero is arrived at, showing that the number 
is not prime; or a proper fraction is arrived 
at, showing that the next prime must be 
picked from the list and tried. The lists 
primes and primes "2 are double pur- 
pose, in that new numbers are added to the 
list and old numbers are chosen off the list 
and used in the search for new primes. 

It would be interesting to find a fast way 
to square the prime numbers, as the other 
operations (doubling and subtracting) are 
well-suited to assembly language program- 
ming. Perhaps someone would be inter- 
ested in speeding this up more by using 
assembly. 

Yours truly, 
Allan Rydberg 
RFD#l,Box46C 
Sterling, Connecticut 



{Continued.) 




Figure One. Pass N+1 to MS-DOS as the 
string's start address. 



oopy2 over over ; 
double 1 ashift ; 
subtract - ; 
half -1 ashift ; 
square dup » ; 

: setup 1 pointer* ! 2 1 primes ! 4 1 primes"2 ! 



double-denom 

C 10 3 
( 10 6 

oopy2 > if double 



\ 



\ 



10/3 = Oflag or 
10/6 = Iflag 



.. 10 6 0-flag ) 
.. 10 12 1 flag ) 
flag-loop 
else copy2 < if half flag-done 

else oopy2 = if flag-done 

else ." error in double-denom " 

then 

then 

then ; 

\ double-denom copy top pair of stack 

\ if 10 > 3 then double +flag for loop 

\ else if 10< 3 then divide by 2 and flag done 

\ else if 10=3 then flag-done 

\ else print error message 

: max-denom ( 10 3 ... 10 6 ) \ loop to find max denominator 

begin double-denom until ; 
max-denom = loop to double-denom and continue until flag-done is returned 



\ 



: test-done ( 1 3 ... 1 3 flag-true ) 

( 10 3 ... 10 3 flag-false ) 
copy2 < if flag-true else flag-false 
then ; 

\ test-done copy2 and see if num < denom if true then flag true 

: test-equal ( 10 3 ... 10 3 flag-false ) ( 3 3 ... 3 flag-true ) 
copy2 = if oopy2 

subtract rot drop swap flag-true 
else flag-false 
then ; 

\ test-equal if equal leave remainder , denomerator , flag 

: subtraet-d-f rom-n ( 10 3 10 6 t 3 ) 

subtract over rot drop rot drop ; 
\ subtract-d-f rom-n subtract 6 from 10 leave 4,3,0 

: cycle ( 10 3 . . . t 3 ) (10 5 10 10) 
test-done if flag-done 

else test-equal if flag-done 

else copy2 max-denom 
subtraot-d-f rom-n 

then 

then : 



1 ) ( 10 2 



) 



: test-fraction ( 10 3 •• 
begin cycle until drop 
\ test-fraction will leave the remainder of any division on the stack 

: increment pointer* g 1 + pointer* ! ; 

: new-prime 

integer g dup increment pointer* g rot over . . 
primes ! 

Integer g square pointer* g primes"2 ! j 
: test-answer = : 



test-f or-zero 




( i ... F ) 

= if flag-true else flag-false then 



create -denominators 

integer g 1 do 

integer g i primes g dup 
test-for-zero 
if drop drop new-prime leave 
else integer g i prlmes"2 g < 

if drop drop new-prime leave 
else 

test-fraction test-answer if 

leave then 

then 

then 

i integer g 1 - = if new-prime then 
loop ; 



run* 



\ cycle from 3 thru max-integer and set each # equal to integer 
\ then jump to oreate-lnteger 

oleararray setup 

max-integer 3 do 

i integer ! oreate-denominators 

loop ; 
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DOUBLE-ENTRY 

BOOKKEEPING 

J.J MARTENS - KAUKAUNA, WISCONSIN 



In its present form, DE -BOOKS is a 
capsulated version of my personal book- 
keeping system. If the reader is totally 
unfamiliar with double-entry bookkeep- 
ing, I suggest some research in this area. It' s 
a little tricky but, like Forth, can be very 
rewarding once you get the hang of it. 

Although most people may not want to 
bother with a person^ bookkeeping sys- 
tem, it's arare individual who doesn't have 
occasional use for a Hnancial statement. 
DE -BOOKS was conceived as the former, 
but in the development I discovered the 
latter emerges as a by-product and — ^for 
some folks — may well be the tail that wags 
the dog. Assuming that you have looked 
over the code and explanatory material in 
the shadow screens, let's touch on a few of 
the details. 

Screen 1 5 is the only shadow necessary 
to the operation of the program. Ordinarily, 
this screen contains the user' s personal ac- 
count categories, but until you're familiar 
with the operation it may be wise to use the 
working accounts in the order provided. 
Important information regarding account 
names and numbers is in screen 17. 

Screen 18 is my favorite. If the arrays 
are the body of the system, this must be the 
heart It doesn't look like much, but it may 
be where I learned the meaning of iteration. 
Early versions used up to three screens. 

The next four screens represent the 
goals we are trying to reach. If one can draw 
a line between bookkeeping and account- 
ing, it may be here, between the trial bal- 
ance (screen 9) and the beginning of the 
financial statement (screen 10). The ja-o- 
gram produces one as easily as the other. I 
like to think of it as Cinderella the book- 
keeper being transfcsmed into Ms. Finan- 



cial Statement the accountant, via the 
magical power of Forth. 

The transitory (P&l) in screen 11 is 
unique in that we never add to it, subtract 
from it, or clear it We just store (screen 1 1 , 
line 12) and fetch (screen 12, line 1 1). Any 
profit or loss determined by the program is 
a reflection of the journal or ledger at the 
instant the financisd statement is taken. 



Trial balances and 
financial statements 
are taken as desired. 



We could use the stack instead of the 
variable to accomplish this, if desired. In 
retrospect, that may be abetter way of doing 
it. If we used the stack, the balance sheet 
could precede profit-and-loss on the finan- 
cial statement, and the actual profit or loss 
would be on the stack for recap. We live 
and learn. Better late than never. The old 
clich6s can be comforting. On with the 
show! 

In my personal version, the MS-IX)S 
C0MMAND.COM, F83.COM, and DE- 
BOOKS.BLK are permanently on the disk. 
newbooks is used to set up the wiginal 
account balances, and transfer puts 
them in the ledger. The F83 word save- 
SYSTEM is used to save the opening bal- 
ances as a command file. This setup is done 
once. 

At the end of the month, the command 
file is run on DE-BOOKS.BLK, and the 
deposits and checks for the month are 
posted to the journal, making sure that 
the debits and credits balance, transfer 



adds the current month's data to the ledger, 
and SAVE-SYSTEM creates a new com- 
mand file. This routine is repeated 
monthly. 

Trial balances and financial statements 
are taken as desired and the older command 
files are erased as the disk fills. Hard copy 
is a must but, of course, that's another 
story. The version I use includes printing 
utilities for an Epson LX-86 printer. 

My references include the source code 
for FSB; Inside F83 by C.H. Ting, Ph.D.; 
Starting Forth and Thinking Forth by Leo 
Brodie, FORTH, Inc.; Mastering Forth by 
Anita Anderson and Martin Tracy, Micro- 
Motion; and Forth Dimensions. 



J.J. Martens ran the family business 
for nearly three decades, then spent 
several self-employed years until his 
'practical retirement.' His interest in 
Forth and subsequent purchase of a 
Jupiter Ace computer (and more 
equipment later), was aroused in 
J 985 by Popular Computing, wluc /le 
calls "...a good magazine, now ex- 
tinct." To thosewho find double-entry 
bookkeeping more difficult than 
Forth, he offers Edmund Burke's 
advice, "Don't despair— but if you 
do, work on in despair!" 



Forth Dimensions 
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fl Double-entry bookkeeping. 15 5t)a(lo«5--8/15, etc. lB-2B-88ji 

1 DE-BOQKS is a bare-bones double-entry bookkeeping systei 

2 that uses the Laxen-Perry F83 itplewntation of the Forth-83 

3 Standard. 
4 

5 It consists of a general journal, a general ledger, a 

6 lechanisi for posting original entries to either, and a word to 

7 transfer journal data directly to the ledger. A trial balance 

8 and or a sitple financial statement can be taken froi either 

9 journal or ledger at any tiie. 
18 

11 The working chart of accounts in screen IS can accomodate 

12 48 account categories and can easily be edited to suit the user. 
13 

14 The application was written with a Radio Shack Tandy 1BB8 

15 coiputer over an IK-DOS 2.11.22 operating systei. 



15 

CHECKING 

FURN & APPLIANCES 
HONE AND LOT 



HQRT6AGE PAYABLE 



HA6E INCOME 
SAIN ON SALES 

CAR EXPENSE 
REAL ESTATE TAX 
CONTRIBUTIONS 



SAVINGS STOCKS k BONDS 

TOOLS t EQUIPHENT AUTOHOBILE 



NOTE PAYABLE 



INTEREST INC 
SOC SEC INC 

UTILITIES k PHONE 

REPAIRS 

LOSS ON SALES 



EQUITY 

DIVIDEND INC 



INSURANCE 

MEDICAL/DENTAL EXP 
INTEREST EXPENSE 

DRAMIN6 ACCOUNT 





1 






16 


e \ 


Nuts and 


bolts Load screen 


lB-19-88ji \ 1-16 Shadow ~ Nuts and Bolts 18-19-88ji 


1 : 


8« 


(S 


~) 8 8; 




2 : 


4<- 


(S 


a —a) 4 + ; 


Lines 1 thru 6 add useful words not in the F83 


3 : 


D8< 


(S 


d -f) S»WP DROP 8< i 


dictionary. 


4 : 


DS) 


(S 


d -f) BtCGATE DB< ; 


5 : 


B80 


(S 


d -f) Dl= NOT ; 




b : 


2+! 


(S 


d a -) BOP >R 2« D+ R) 2! ; 


2*'. adds the double-length nuiber on the stack to the amount 


7 








stored at the given address. 


8 : 


(DC) 


■ 


DEBIT CREDIT " ; 


9 : 


(PL) 


H 


PROFIT AND LOSS " ; 


Lines 8 thru 14 are headings used in various places for 


18 : 


(BS) 


1 


BALANCE SHEET " ; 


clarity. 


11 : 


(RC) 


K 


RECAP ■ J 


12 : 


(PG) 




PASTING " ; 




13 : 


(TB) 


■ 


TRIAL BALANCE " ; 


2 14 THRU OK will now load the application source code. 


14 : 


(FS) 




FINANCIAL STATEMENT " ; 


15 2 


14 THRU 







2 

\ Utilities 



1 
2 
3 
4 
5 
6 
7 
8 
9 

IB 

11 
12 
13 
14 
15 



17 

lB-19-88ji \ 2-17 Shadow - Utilities 



ie-23-S8ji 



.ACf (S n— ) 2 .R 2 SPACES i \ print account nutber 



.ACNAHE (S n~ 
15 BLOCK SNAP 
2B * + 

R> 3 / 4 ♦ + 
28 TYPE ; 

NHAT (S a ~a 
DUP 2« 2DUP 1 



I- DUP >R 



d d) 



\ print account na«e 
(S addr acl-1 -) 
\ adjust addr for 2B-space naies 
\ adjust addr for 64-5pace lines 
\ print the account naie. 

\ what is at this address? 



Valid account nuibers are 1 thru 48. 
When posting (see screen 8) an invalid account nuiber 
will exit the posting loop and grand total debits and credits. 

Account naies are listed 3 to a line in screen 15. Please 
note that ACtl is CHECKING, 12 IS SAVINGS, 13 is STOCKS l 
BONDS, 14 FURN & APPLIANCES and so on in that order across and 
down. 

Nuibers 1 thru 21 are reserved for ASSETS and LIABILITIES 
22 THRU 24 do PROPRIETARY INTEREST 

25 THRU 48 do INCOME and EXPENSES 
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3 

e \ Deferred tiords l8-28-88ji 

1 

2 DEFER ARRAY 

3 48 4 t CONSTANT ARRAYSIZE 

4 CREATE URL) ARRAYSIZE ALLOT \ general journal 

5 CREATE (LED) ARRAYSIZE ALLOT \ general ledger 

i (LED) (JRLl - CONSTANT DIFFERENCE \ {or transfer purposes 

7 ! ACTADR (S n— a) \ offset to account address 

8 1- 4 ♦ ARRAY + ; 

9 ! 3RL->LED (S — ) \ Updates ledger with contents of journal 
IB (JRLl 48 e DO DUP DUP 2« ROT DIFFERENCE + 2+! 4+ 

11 LOOP DROP i 

12 

13 DEFER BOOKS 

14 : JL ." JOURNAL " ; 

15 ! LR ." LEDGER " j 



18 

\ 3-18 Shadoit -- Deferred words l«-2«-88ji 

The t»o identical arrays are the body of the systet. The 
journal is used for current period data accu«uUtion - daily, 
•onthly or whatever, while the ledger is the year-to-date 
repository for that inforiation. 

ACTADR converts the account nuiber to the address of the 
account balance. 

JRL->LED is the lower level word that updates the ledger 
at the end of the current period. 

The deferred word BOOKS is included in the headings for 
Posting, Trial Balance and Financial Statement to reiind the 
user which of the two bool(s is in current use. 



4 

8 \ Oouble-length number input/output lB-19-BBjB 
1 

2 : INPUT QUERY BL NORD NUMBER ; (S ~d) \ stack a double- 

3 \ length nu«ber 
4 

5 : (D.)* (S d--a 1) \ convert double-length nutber to a 

6 TUCK DABS \ toney string 

7 <♦ I I ASCII . HOLD IS ROT SI5N l> ; 
8 

9 : D,R$ (S d n~) \ output a loney string n spaces 
18 >R (D.)t R> OVER - SPACES TYPE ; \ right justified 
11 

12 : 12D.R$ 12 D.R* ; (S d~) \ output 12 spaces right justifie 

13 : ISD.Rt 18 D.R* ; (S d~) \ " 18 " 

14 : 3BD.R* 38 D.R* ; (S d-) \ " 38 " 
15 



19 

\ 4 -19 Shadow - Double-length nuiber input/output 18-19-88ji 
INPUT is the user interface for account nuiber and aiount. 



The prograe responds to input with or without the deciial 
but for practical purposes account nuibers should be entered 
without the deciial and all loney aiounts should be entered with 
the deciial in its proper place and including all zeroes. 

Exaiple: 25 dollars is entered as 25.88 (not 25.) 



8 

1 
2 
3 
4 
5 
6 
7 
8 
9 
18 
11 
12 
13 
14 
15 



\ Debit/Credit utility 
2VARIABLE DEBITS 2VARIABLE CREDITS 
: DCB 88 2DUP DEBITS 2! CREDITS 2! 



18-19-88j« \ 5-28 Shadow - Debit/Credit utility 



18-21-83ji 



\ clear debits and 
\ credits to 88 



DEBIT? (S d-d f) 2DUP DB) 



\ is it a debit? 



.AMOUNT (S d~) \ print debit or credit aiount 
DEBIT? IF 18D.R$ ELSE DABS 38D.R* THEN : 



This utility lanages the debit/credit input and output 
while the actual variables serve as accuiulators. 

If you're a little rusty in the double-entry area it helps 
to reieiber that for every debit there lust be one or lore 
credits and vice versa. Also, be it journal or ledger, for 
either book to be in balance the total of all debits lust equal 
the total of all credits. 

In this application debits are entered as positive values 
and credits as negative. The totaling process coipares the 
absolute values. 
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1 

2 
3 
4 
5 
6 
7 
8 
9 

le 

11 
12 
13 
14 
15 



\ Debit/Credit utility 



21 

ie-ll-88jt \ 6-21 Shadow - Debit/Credit utility 



ie-2e-88ji 



TOTALDCS (S 1 i --) \ total and store debits, credits 
DO I ACTftDR 28 DEBIT? 

IF DEBITS 2+! ELSE CREDITS 2+! THEN 
LOOP ; 

.STOTftLS (S ") \ print grand totals debits, credits 
CR 49 1 TOTALDCS 
." TOTALS" 15 SPACES 
DEBITS 2« 18D.R* CREDITS 2« DABS 12D.R* DC8 ; 



TOTALDCS Scan a range of accounts. Fetch and accuiulate 
contents in the DEBIT and CREDIT accounts. 



.GTOTALS Scan all debits and credits in the current book. 
Fetch and accumulate contents in the DEBIT and CREDIT 
accounts. Retrieve and print their total absolute 
values and clear the DEBIT and CREDIT accounts. 



7 

e \ Posting utility 



\ 

1 

2 : 

3 : 

4 : 

5 : 

6 : 
7 

8 

9 : 
10 
11 
12 
13 
14 
15 



ie-28-88ji 



22 

\ 7-22 Shadow 



Posting utility 



18-21-88ji 



PGHEAD (S -) (PS) BOOKS (DC) ; \ posting heading 
ENTERACI (S ~d) ." ENTER ACT t " INPUT ; 
TESTACI (S d~n f) DROP DUP 1 48 BETWEEN ; 
HASH (S -) -LINE 13 EHIT ; \ clears clutter 
ENTERAHT (S n-n d) DUP .ACNANE ENTER AHOUNT " 
INPUT HASH : 



ADDAMT (S n d -d) 



ROT DUP >R 
.ACt 

R« .ACNftnE 

2DUP R> 
ACT ADR 2+! 



\ d n 

\ d 

\ d 

\ d d 

\ d 



\ add to account 

save a copy of ACI on return stack 
print account nu«ber 
print account naie 
prepare to add to account 
lake the addition 



In this application all incoie is deposited in one 
checking account and all outgo is disbursed by check froi this 
account. 

At regular intervals deposits and checks are posted via the 
posting utility to the JOURNAL. Entries that do not involve 
the check book should also be aade at this tiie. 

This process categorizes and suiiarizes the data. At 
the end of the posting session, when the debits and credits 
are in balance, they are transferred (added) to the ledger. 



B 

\ Posting utility 

PROCEED (S f~f) \ proceed ttith entries 
IF ENTERAHT ADDAHT .AMOUNT TRUE 
ELSE DROP FALSE 
THEN ; 

CONTINUE (S ") CR P6HEAD \ continue posting 
BEGIN CR ENTERACI TESTACI 

PROCEED 
MHILE 

REPEAT .GTOTALS : 



23 

18-28-88ji \ 8-23 Shadow Posting utility 



18-28-88ji 



CONTINUE is the lower level word that sets up the posting 
process between user and coiputer. 

It requests data in the fori of account nuiber and 
aiount until the user enters an account nuiber other 
than 1 to 48 at which tiie it edits the loop, 
totals the debits and credits and displays the totals for 
coiparison. To re-enter the loop use POST. 
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8 \ 

1 : 

2 

3 ! 
4 

5 
6 
7 
8 
9 

le : 

11 

12 

13 

14 

IS 



9 

Trial balance 
TBHEAD (S --) 



(TB) BOOKS (DC) 



18-13-88ji 
trial balance heading 



24 

\ 9-24 



shadow Trial Balance 



18-22-88ji 



LISTACTS (S addr 
DO WHAT DBO 
IF I DUP .ACI 
ELSE 2DR0P 
THEN 4+ 
LOOP DROP : 



li»it index — ) \ list certain active acts 
.ACNAHE .AHOUNT CR 



TRIAL-BALANCE IS -) CR TBHEAD \ trial balance 
CR 1 ACTADR 49 1 LISTACTS .GTQTALS ; 



TRIAL-BALANCE is the loner level word that exaiines the entire 
contents of either book at any tiie. 

It is particularly useful during the posting session 
because one can see the effect of any and all entries 
sitply by alternating betneen the posting loop and the 
trial balance. 



8 \ 

1 : 

2 : 

3 I 
4 

5 : 
6 
7 
8 

9 ! 
18 
11 
12 
13 : 
14 
15 



18 

Financial statement 
FBHEAD (S -) (FS) BOOKS (PL) ; \ 
FSHEADl (S ~) 21 SPACES BOOKS (BS) 
FSHEAD2 (S -) 21 SPACES BOOKS (RC) 



25 

lB-14-88ji \ 18-25 shadow Financial Statesent 



18-23-88 ji 



■ain statement heading 
; \ Ist subhead 
; \ 2nd subhead 



PRINTENTRY <S a d n n -a) 
■ACf .ACNAHE DABS ISD.Rt ; 



\ print act, acnaae and aiount 



LISTDEBITS 
DO NHAT D8> 
LOOP DROP ; 

LISTCREDITS 
DO WHAT D8< 
LOOP DROP i 



(S address liiit index ~) \ list debits only 
IF CR I DUP PRINTENTRY ELSE 2DR0P THEN 4t 



(S a 1 i -) \ list credits only 

IF CR 1 DUP PRINTENTRY ELSE 2DR0P THEN 4+ 



The financial statenent includes: 

1. A profit and loss section 

Incote linus Expenses = Net Profit or Loss 

2. A balance sheet 

Assets linus Liabilities = Net North or Deficit 

3. A recapitulation of Net North and Owner's Eguity 
Owner's Equity at start of period 

plus or linus profit or loss = 
Owner's Equity at end of period = Net North or Deficit 

Financial statement foriat is different froi the trial bal- 
ance in that debits and credits no longer have separate coluins 
and negative values are introduced for a net loss !c/or deficit. 



1 
2 
3 
4 
5 
b 
7 
8 
9 
IB 
11 
12 
13 
14 
15 



11 26 
Financial statement lB-15-88ji \ 11-26 

ASSETS .■ ASSETS ' I ACTADR 22 1 LISTDEBITS ; 

LIABILITIES ." LIABILITIES' 1 ACTADR 22 1 LISTCREDITS ; line 8 
INCOME ." INCOME " 25 ACTADR 49 25 LISTCREDITS ; line 9 

EKPENSE .■ EXPENSE" 25 ACTADR 49 25 LISTDEBITS ; 



CREATE (Pit) 8 , 8 



\ transitory profit and loss account 
\ profit and loss 



CR 



P^L (S -) FSHEAD 
49 25 TOTALDCS 
INCOME CREDITS 2« 2DUP DABS 12D.RI CR 
EXPENSE DEBITS 28 2DUP 12D.Rt CR 

D+ 2DUP (PiL) 2! DNE6ATE 
." MET SftlN (LOSS -)" 17 SPACES IBD.RI DCB 



line 
line 



shadow Financial Statenent 18-23-88jn 
Profit and Loss 
Print the statenent heading. 
Total and store debits and credits included in the 
incoie/expense section ACt's 25 to 48. 

List the credits; fetch, duplicate and print the total. 
List the debits; fetch, duplicate and print the total. 



line 12 Add the credits to the debits on the stack. 
Duplicate the result. 
Store one copy in the transitory (PiL). 
Change sign of the copy on the stack. 

line 13 Print the result as net gain or loss. 
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8 \ Financial Statement lB-25-88ji \ 

1 ! BAL (S ~l FSHEADl CR \ balance sheet 

2 22 1 TOTALDCS 

3 ASSETS DEBITS 26 2DUP 12D.R$ CR 

4 LIABILITIES CREDITS 28 2DUP DABS 12D.R$ CR 

5 D+ 

i ." NET tiORTH (DEFICIT -)" 13 SPACES ISD.R* DCa ; 
7 

8 : RECAP (S — ) FSHEAD2 \ recap net Horth and equity 

9 2A ACTADR 28 2DUP IWEBATE 

IB CR .■ OPENING EQUITY" 10 SPACES 12D.R$ 

11 (PiL) 28 2DUP DNEGATE 

12 CR ." NET GAIN (LOSS -)° 5 SPACES 12D.R* 

13 D+ DNEGATE 

lA CR CLOSING EQUITY (DEFICIT -)' 18 SPACES ISD.Rt DCB ; 



27 

12-27 shadoN Financial Stateient lB-25-88ji 
Print the balance sheet subhead. 
Total & store asset/liability DCs - fiCI's 1 thru 21, 
List the debits; fetch, duplicate and print the total. 
" credits; 

Add the debits to the credits on the stack. 
Print the resulting net north or deficit. 

Print the recap subhead. 

Fetch opening equity fro« ACI 24, duplicate li change sign. 
Print it. 

Fetch profit or loss, duplicate and change sign. 
Print it. 

Add the amounts on the stack and change sign. 
Print the result and clear debits and credits. 



13 

8 \ High level words lB-2B-88jii \ 

1 

2 : JOURNAL ['] (JRL) IS ARRAY ['] JL IS BOOKS ; \ activate jrnal 

3 : LEDGER C'l (LED) IS ARRAY ['] LR IS BOOKS ; \ activate ledgr 
4 

5 : CLEAR-JOURNAL (S -) (JRL) ARRAYSIZE ERASE ; 

6 : CLEAR-LEDGER (S -) (LED) ARRAYSIZE ERASE ; 
7 

8 : TB (S -) TRIAL-BALANCE ; \ trial balance 

9 

18 : FS (S ~) CR P«cL CR BAL CR RECAP ; \ financial stateient 
11 



28 

13-28 shadow High level words lB-25-88ji 

Make JOURNAL current for posting, trial bal and fin stat. 
" LEDGER ■ " " ..... 

Clear all JOURNAL accounts to zero. 
" LEDGER " " • 

Print the contents of the current book in trial balance 
fora. 

Print the contents of the current book in financial 
stateient fori. 



8 \ 
1 

2 : 

3 

4 

5 : 

& 

7 

8 

9 
18 
11 
12 
13 
14 
15 



14 

High level words 



NEKBOOKS (S ~) \ begin journal /ledger froi all acts zero 
CLEAR-JOURNAL CLEAR-LEDGER JOURNAL CONTINUE ; 

POST (S — ) CONTINUE ; \ continue posting current book 



TRANSFER (S ~) JRL->LED CLEAR-JOURNAL ; \ transfer data 

\ to ledger — 
\ clear journal 



29 

18-25-88jii \ 14-29 shadow High level words 
NEHBOOKS 



18-27-88j« 



Just post your assets and liabilities to the 
appropriate accounts, check the totals and enter 
the difference as your equity in account #24 and 
you're in business! 



POST post is the workhorse coiwand that receives original 
entry data and enters it in the current book. 

TRANSFER adds the contents of the journal to the ledger and 
clears the journal for the next period's entries. 
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Forth-83 

DEVELOPING A 

STEP TRACE 

CHESTER H. PAGE - SILVER SPRING. MARYLAND 



TRACE SCR tt 1 

\ Preliminaries 30JULS3CHP 
1 

2 \ Boot FORTH 

3 \ Def i ne : DUMMY ; 

4 \ Enter HEX 2000 ALLOT 

5 \ Load ASSEMBLER 

6 \ Load TRACE 
7 

8 \ This maneuver combined with Screen 2, line 5 and Scr 5, L 7 

9 \ eliminates ASSEMBLER and the temporary constants o-f Scr 2, 
10 \ L 2/3, -from the -final dictionary 

1 1 

12 — > 
13 
14 
15 



It is convenient to have a STEP- 
TRACE routine which displays the parame- 
ter stack (and the floating-point stack, if ap- 
propriate), the name of the word being 
executed, and the resulting stack(s). I have 
developed such a routine with some inter- 
esting features, and a development tech- 
nique involving three stages. 

The first stage makes brute-force use of 
high-level variables and constants, and a 
Forth assembler. The second stage is a little 
more elegant: most of the intermediate 
parameters are replaced by dummy num- 
bers and addresses. These are overwritten 
at the end of the assembly, using location 
data about the words just defined. The basic 
reason for these maneuvers is that there is a 
circular dependence of definitions upon 
each other, so no order of defining the 
words allows for a simple succession of 
definitions. For example, detour uses 

(UNDETOUR) , which uses (DETOUR) , 
which uses DETOUR. 



The final version 
provides a more ele- 
gant stack display. 



In both these stages, an assembler must 
be loaded and used. It is more convenient to 
have definitions that can be added to a dic- 
tionary by a simple screen loading; the third 
stage provides this. It is achieved by devel- 
oping the primitive words in stage two, and 
providing for defining these by compiling 
bytes, using create. The final version 
provides a more elegant stack display 
(aligned four-digit hex numbers) and al- 
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TRACE SCR « 2 

\ Parameters and stack print 

1 HEX 

2 EE CONSTANT IP 

3 Fl CONSTANT W 
4 

5 ' DUMMY 4 + DP ! 
6 

7 VARIABLE FLOOR 
3 VARIABLE FROM 
9 VARIABLE TEMP 

I 

II : .S DEPTH ''DUP IF DO DEPTH I - 
12 ELSE ." Empty stack" THEN i 
13 

14 — > 
15 



30JUL88CHP 



1- PICK . LOOP 



TRACE SCR » 3 

\ fUNDETOUR^, DETOUR 30.JUL88CHP 

1 ASSEMBLE (UNDETOUR) PLA , IP STA , PLA , IP 1+ STA , 

2 PLA, W 1+ STA, PLA, W STA, 

3 \ Reset detour 

4 TEMP 1+ LDA, ' NEXT lA + STA, 

5 TEMP LDA, ' NEXT 19 + STA, 

6 \ Proceed with original word 

7 « LDY, W 1- JMP, 
8 

9 : DETOUR >R .S KEY DROP R> CR >NAME ID. 4 SPACES (UNDETOUR) ; 

I 

II — > 
1 2 

13 TEMP is a substitute for the Parameter Field Address 

14 o-f (DETOUR) to break a circular dependence. 
15 
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lows reverting to normal operation even 
during a trace. 

Operating Principles 

Entering trace enables a detour 
signpost (DETOUR) , a jump to which is 
substituted for the JMP w-1 at the end of 
NEXT. If the word request (i.e., the parame- 
ter field entry containing the code field 
address of the requested word) is below a 
specified FLOOR, the detour is ignored. 
This avoids having components of compo- 
nents of components analyzedadnauseum. 
FLOOR defaults to the original dictionary 
top, but can be moved down to allow trac- 
ing words defined before TRACE was 
added. 

When the detour is taken, the code field 
address of the word to be executed is put on 
the parameter stack for use in printing its 
name, and on the return stack for storage. 
The "detour sign" is then removed (for the 
sake of later arrivals) and the detour is 
taken. While in the detour, the parameter 
stack is printed (and the floating-point 
stack, if desired). DETOUR is a colon word, 
so variations are easily added. The last 
component of DETOUR is the primitive 
(UNDETOUR) , which recovers IP and w 
(the interpretive pointer pointing at re- 
quests, and the word pointer), resets the 
detour sign, and proceeds with the original 
command via JMP w- 1 , as was intended at 
the end of next. 

Since DETOUR is a colon word, the IP 
that called it was put on the return stack, to 
be recovered by EXIT (called by the semi- 
colon); but the last component of detour 
is a primitive that ends in a JMP command, 
so that the semicolon is never reached! To 
replace its action, (UNDETOUR) must 
start by pulling the stored IP off the return 
stack, and storing it in the IP pointer. 

Having (DETOUR) remove the detour 
signpost before taking the detour protects 
DETOUR itself from being traced, avoiding 
an infinite loop of self-tracing. By restoring 
the signpost after the detour is finished, the 
next word external to the detour operation 
will be traced. 

Interrupting the detour with key pro- 
vides for tracing one step at a time for each 
press of the spacebar; holding the spacebar 
down provides continuous tracing. 
Pressing <DELETE> aborts the operation; 
any other key continues the operation in 
normal mode (no trace). When the trace of 
a word is finished, the routine awaits the 
(Text and screens continued on page 27.) 



TRACE SCR « 4 

\ (DETQUR) 30JUL83CHP 

1 ASSEMBLE (DETQUR) 

2 SEC, IP LDA, 2 « SBC, FROM STA , IP 1+ LDA, SBC, 

3 FLOOR 1+ CMP, 101 BCC, 102 BNE , FROM LDA, FLOOR CMP, 

4 101 BCC, 

5 102 DEX, DEX, U LDA, PHA , ,X STA, 

6 W 1+ LDA, PHA, 1 ,X STA, 

7 \ Direct iorts -for detour 

8 103 ' DETOUR 100 /MOD » LDA, W 1+ STA, 

9 ♦» LDA, U STA, 

10 \ Remo'je detour signpost 

11 FO « LDA, ' NEXT 1? + STA, *t LDA, ' NEXT lA + STA, 

12 101 « LDY, W 1- JMP, END — > 

13 END sets the branches to the labels 101, 102, etc. 

14 103 is a dummy label j /MOD puts two numbers on the stack, 

15 the -first would be misinterpreted as a label i -f no label 



TRACE SCR # 5 
\ TRACE, NOTRACE, Relink dictionary 
1 

2 ; TRACE ['I (DETOUR) 2+ ['] NEXT 19 + ! ; 

3 : NOTRACE FO C'] NEXT 19 + ! ; 
4 

5 ' (DETOUR) 2+ TEMP ! 
6 

7 ' DUMMY >NAME ' FLOOR >LINK ! 

8 \ Establishes a link bypassing the assembler 
9 

10 HERE FLOOR ! 
1 1 

12 QUIT 

13 

14 

15 



TRACE SCR « 6 

\ Second stage of de'jelopment 

1 HEX 

2 EE CONSTANT IP 

3 Fl CONSTANT U 

4 F4 CONSTANT FROM 
5 

6 ' DUMMY 4 + DP ! 
7 

3 VARIABLE FLOOR 
9 

10 ! .S DEPTH ?DUP IF DO DEPTH I 

11 ELSE ." Empty stack" THEN 
12 

13 — > 

14 

15 



30 JUL88CHP 



30JULS8CHP 



1- PICK 



LOOP 



TRACE SCR tt 7 




1 
2 

3 
4 
5 
6 
7 
8 
9 
10 
1 1 
12 
13 
14 
15 



\ Second 

ASSEMBLE 

PLA, W 1+ STA, PLA, 

\ Reset detour 

FF tt LDA, ' NEXT lA 
FF » LDA, ' NEXT 19 

\ Proceed with original 
» LDY, U 1- JMP, 



t age , con t i nued 
UNDETOUR) PLA, IP STA, 
W STA, 



+ STA , 
+ STA, 
word 



30JUL8SCHP 



PLA, IP 1+ STA, 



DETOUR 



--> 



. S KEY DROP R> CR >NAME ID. 4 SPACES (UNDETOUR) 
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HARVARD SOFTWORKS 

NUMBER ONE IN FORTH INNOVATION 

(513) 748-0390 P.O. Box 69, Springboro, OH 45066 



MEET THAT DEADLINE ! ! ! 

• Use subroutine libraries written for 
other languages! More efficiently! 

• Combine raw power of extensible 
languages with convenience of 
carefully implemented functions! 

• Yes, it is faster than optimized C! 

• Compile 40,000 lines per minute! 

• Stay totally interactive, even while 
compiling! 

• Program at any level of abstraction 
from machine code thru application 
specific language with equal ease 
and efficiency! 

• Alter routines without recompiling! 

• Use source code for 2500 functions! 

• Use data structures, control 
structures, and interface protocols 
from any other language! 

• Implement borrowed feature, often 
more efficiently than in the source! 

• Use an architecture that supports 
small programs or full megabyte 
ones with a single version! 

• Forget chaotic syntax requirements! 

• Outperform good programmers 
stuck using conventional languages! 
(But only until they also switch.) 

HS/FORTH with FOOPS - The 
only flexible full multiple 
inheritance object oriented 
language under MSDOS! 

Seeing is believing, OOL's really are 
incredible at simplifying important 
parts of any significant program. So 
naturally the theoreticians drive the 
idea into the ground trying to bend 
all tasks to their noble mold. Add on 
OOL's provide a better solution, but 
only Forth allows the add on to blend 
in as an integral part of the language 
and only HS/FORTH provides true 
multiple inheritance & membership. 

Lets define classes BODY, ARM, and 
ROBOT, with methods MOVE and 
RAISE. The ROBOT class inherits: 

INHERIT> BODY 

HAS> ARM RightArm 

HAS> ARM LeftArm 
If Simon, Alvin, and Theodore are 
robots we could control them with: 
Alvin 's RightArm RAISE or: 
+5 -10 Simon MOVE or: 
+5 +20 POR-ALL ROBOT MOVE 
Now that is a null learning curve! 



WAKE UP ! ! ! 

Forth is no longer a language that 
tempts programmers with "great 
expectations", then frustrates them 
with the need to reinvent simple 
tools expected in any commercial 
language. 

HS/FORTH Meets Your Needs! 

Don't judge Forth by public domain 
products or ones from vendors 
primarily interested in consulting - 
they profit from not providing needed 
tools! Public domain versions are 
cheap - if your time is worthless. 
Useful in learning Forth's basics, 
they fail to show its true potential. 
Not to mention being s-l-o-w. 

We don't shortchange you with 
promises. We provide implemented 
functions to help you complete your 
application quickly. And we ask you 
not to shortchange us by trying to 
save a few bucks using inadequate 
public domain or pirate versions. We 
worked hard coming up with the 
ideas that you now see sprouting up 
in other Forths. We won't throw in 
the towel, but the drain on resources 
delays the introduction of even better 
tools. Don't kid yourself, you are not 
just another drop in the bucket, your 
personal decision really does matter. 
In return, well provide you with the 
best tools money can buy. 

The only limit with Forth is your 
own imagination! 

You can't add extensibility to 
fossilized compilers. You are at the 
mercy of that language's vendor. You 
can easily add features from other 
languages to HS/FORTH. And using 
our automatic optimizer or learning a 
very little bit of assembly languaige 
makes your addition zip along as well 
as in the parent language. 

Speaking of assembly language, 
learning it in a supportive Forth 
environment turns the learning curve 
into a light speed escalator. People 
who failed previous attempts to use 
assembly language, conquer it in a 
few hours or days using HS/FORTH. 



HS/FORTH runs under MSDOS or 
PCDOS, or from ROM. Each level 
includes all features of lower ones. Level 
upgrades: $25. plus price difference 
between levels. Sources code is in 
ordinary ASCII text files. 

All HS/FORTH systems support full 
megabyte or larger programs & data, and 
run faster than any 64k limited ones even 
without automatic optimization - which 
accepts almost anything and accelerates to 
near assembly language speed. Optimizer, 
assembler, and tools can load transiently. 
Resize segments, redefine words, eliminate 
headers without recompiling. Compile 79 
and 83 Standard plus F83 programs. 

STUDENT LEVEL $145. 

text & scaled/clipped graphics in bit bUt 
windows,mono,cga,ega,vga, fast ellipses, 
splines, bezier curves, arcs, fills, turtles; 
powerful parsing, formatting, file and 
device I/O; shells; interrupt handlers; 
call high level Forth from interrupts; 
single step trace, decompiler; music; 
compile 40,000 lines per minute, stacks; 
file search paths; formats into strings. 

PERSONAL LEVEL $245. 
software floating point, trig, transcen- 
dental, 18 digit integer & scaled integer 
math; vars; A B * IS C compiles to 4 
words, 1..4 dimension var arrays; 
automatic optimizer-machine code speed. 

PROFESSIONAL LEVEL $395. 
hardware floating point - data structures 
for all data types from simple thru 
complex 4D var arrays - operations 
complete thru complex hyperbolics; 
turnkey, seal; interactive dynamic linker 
for foreign subroutine libraries; round 
robin & interrupt driven multitaskers; 
dynamic string manager; file blocks, 
sector mapped blocks; x86&7 assemblers. 

PRODUCTION LEVEL $495. 
Metacompiler: DOS/ROM/direct/indirect; 
threaded systems start at 200 bytes. 
Forth cores at 2 kbytes; C data 
structures & struct+ compiler; 
TurboWindow-C MetaGraphics library, 
200 graphic/window functions, PostScript 
style line attributes & fonts, viewports. 

PROFESSIONAL and PRODUCTION 
LEVEL EXTENSIONS: 

POOPS+ with multiple inheritance $ 75. 
286FORTH or 386PORTH $296. 

16 Megabyte physical address space or 
gigabyte virtual for programs and data; 
DOS & BIOS fully and freely available; 
32 bit address/operand range with 386. 

BTRIEVE for HS/FORTH (Novell) $199. 

ROMULUS HS/FORTH from ROM$ 95. 

FFORTRAN translator/mathpak $ 76. 
Compile Fortran subroutines! Formulas, 
logic, do loops, arrays; matrix math, 
FFT, linear equations, random numbers. 
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F83 



MULTITASKING & 

CONTROLLING 

REGULAR EVENTS 

T. HENDTLASS - HAWTHORN, AUSTRAUA 



a of the requirements of real life 
is to perform multiple tasks at regular inter- 
vals. Forth does not provide this real-time 
capability directly ; it can perform multiple 
tasks apparendy simultaneously by using 
multitasking, but it has no internal timer to 
schedule events at specified times. With 
such a timer per task, and with the multi- 
tasker, we can arrange for events to occur at 
predestined times, or at least very close to 
them. This paper describes a timer for use 
with the IBM PC family, and discusses the 
multitasker built into the F83 public-do- 
main Forth system. 



The virtues of simplicity 
are nowhere stronger 
than in multitasking. 



Of Tasks and Timers 

First, each timer is set to an initial value. 
Every task checks its timer whenever the 
multitasker runs it. If time is up, it does 
whatever needs to be done and resets the 
timer to its initial value; if not, it just passes 
control onto the next task. The accuracy of 
the timing depends on the frequency of the 
task interchange in the multitasker and on 
the resolution of the timers. The rate of task 
interchange is under the control of the pro- 
grammer a task exchange takes place 
whenever the word pause is executed. 
Although it can be placed liberally through- 
out the code and every input or output word 
has PAUSE embedded in it, this is the major 
cause of latency and the timer need not have 
a very high resolution. For tasks that have to 



Figure One. The definition of the defining word TIMER. 


: TIMER 




CREATE ( — ) 


\ no stack, effect when creating 


4 ALLOT 


\ space for two variables 


DOES> ( — adr ) 


\ run-time stack effect of creation 


(READ_CLOCK) 


\ get new_value from clock 


OVER 2+ @ 


\ and last value 


OVER - 


\ calculate change 


2 PICK +! 


\ update user value 


OVER 2+ ! 

f 


\ save latest value read 


Figure Two. A version of (READ CLOCK) forF83onaPC. 


code (READ_CLOCK) 


( — n ) 


# mov 


\ Ah=0 to read clock 


2 6 int 


\ lAh=2 6 is the real-time clock 


dx ax mov 


\ low 16 bits of answer to ax 


Ipush 


\ answer to stack and exit to next 


end-code 





Figure Three. F83 provides these multitasker-interface words. 
SINGLE ( — ) 

Disable multitasking by vectoring P AU S E to a null word. Leave the current task run- 
ning as the only task, but don't alter the circular Unked list of tasks. 

MULTI ( — ) 

Enable multitasking by vectoring PAUSE to the active word (pause) , which 
handles the task interchange. 

BACKGROUND: ( — ) 

Contains a defining word that defines a task in the round-robin multitasker. It 
allocates a stack area of 400 bytes (1 00 for the return stack and 300 for the data stack) 
and links the task, leaving it in the sleeping condition. Typing the task name will 
return its address, rather than activating it; it can only be run by the multitasker. See 
comment on this name, in text. 

WAKE ( adr — ) 

Wake up the task whose address is on the stack, so that it will execute in its next turn. 



(Continued.) 
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run at, say, intervals of minutes, it is not 
hard to arrange things so that the maximum 
time latency is only on the order of a second 
or so. 

All we need to add to standard Forth are 
the timers. One method of achieving this is 
with a new defining word which I have 

(Continued.) 



called TIMER. This creates a timer which 
can be preset to a value and which will be 
decremented at a known rate. Periodic 
checking of the value in this timer will 
provide the cue to run the task associated 
with this timer. Although only one new 
word, TIMER, is added for direct use, the 



system-dependent part of the definition is 
factored into another word called 
(READ_CLOCK) . When called, 
(READ_CLOCK) leaves a number on the 
top of the stack; this number must be main- 
tained by the host computer hardware in 
some way, increasing at a regular and 
known rate. In the IBM PC family, a suit- 
able timer is available and may be obtained 
by reading the DOS real-time clock. 

An example use of timer is: 
TIMER name 

which creates a timer called name. 

Name, when run, returns the address 
where the count for this timer is held, so that 
it can be initialized with a normal store or 
can be read with a normal fetch. However, 
name does more than that. When it is 
called, it updates the value in its counter 
(based on the amount of time since it was 
last updated) before it returns the counter 
address. This updating is done on a when- 
needed basis to save processing time, as the 
value in the counter need not be updated 
until it is to be read (obviously) or initial- 
ized (less obviously). 

Internally, each timer keeps two values: 
the user initializes and reads the user value, 
which steadily counts down from the initial 
value to zero (and beyond!); the internal 
value is the value obtained from the system 
clock the last time it was read. When a timer 
is activated, it reads the system clock and 
subtracts the previous system clock value 
(obtained from the internal value). Then it 
decreases the user value by this amount and 
updates the internal value. When a timer is 
being initialized, both the user and internal 
values need to be set, otherwise the first 
read of the timer will produce unpredict- 
able results. 

Defining a Defining Word 

The new defining word T IMER is itself 
defined with the words CREATE and 
DOES>. For those not familiar with the 
operation of CREATE and DOES>, a brief 
explanation follows. 

A defining word has two quite distinct 
parts: one describes what the defining word 
is to build, and the other consists of the 
behavioral characteristics of the new entity 
it builds. For example, consider the proc- 
essing of: 

(Continued on page 30.) 



SLEEP ( adr — ) 

Make the addressed task pause indefinitely until it is woken again (if ever). 

STOP ( — ) 

Put the current task to sleep. If a task ends (i.e., doesn't run continuously in an endless 
loop), then it must end wiUi this word. Otherwise, a task will try to execute its stacks 
with unpredictable — ^but certainly very undesirable — ^results. 

PAUSE ( — ) 

The task in which this word appears stops, and control is passed to the next task in the 
list. PAUSE exists in all input and output words except those directly involving input 
and output ports. If none of these words are used (implicitly or explicidy), the task will 
never release control to the next task. 

ACTIVATE ( — ) 

Force the assigned task to execute new code rather than its old code. 



Figure Four. Example use of F83's multitasking words. 




BACKGROUND : PRINT * S 






20 DO 


\ set up outer 


loop 


ASCII * EMIT 


\ send one * 




100 DO PAUSE LOOP 


\ wait a bit 




LOOP 


\ loop to send 


next 


STOP ; 







Figure Five. A 'multitasker-safe' version of the previous example. 
: NEW-PRINT*S 

PRINT *S ACTIVATE 
BEGIN 

20 DO 

ASCII * EMIT 
100 DO PAUSE LOOP 
LOOP 

STOP FALSE 
UNTIL ; 



\ set up outer loop 

\ set up inner loop 

\ send one asterisk 

\ wait a bit 

\ loop to send next 

\ stop when 20 sent 
loop forever 



\ 



Figure Six. The formal definition of BACKGROUND : 



BACKGROUND : 
400 TASK: 

HERE 

@LINK 2- 
SET-TASK 
!CSP 
] 



\ define a task entry with 400 bytes 

\ for the stack, and the name following 

\ pointer to where code will be compiled 

\ address of task just defined 

\ initialize the new task 

\ initialize compiler error checking 

\ compile the code the follows, so 

\ it will be executed by this new task 
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Forth-83 

BINARY 

TABLE SEARCH 

DAVID ARNOLD - KIRKSVILLE, MISSOURI 



A binary search of a table can be re- 
markably quick and can be adapted readily 
to various types of data. The table records 
must be arranged in order, and none may be 
duplicated. The search starts by declaring 
the whole table as a search region. Then a 
test datum is compared with a record near 
the middle of the region. If they match, the 
search ends. Otherwise, another midpoint 
test is made. If the test item was larger than 
the inspected table item, the upper part of 
the current search region becomes the next 
search region. If the test data was smaller, 
the lower part of the current region is 
searched next. If a table record exists that 
can match the test data, the search homes in 
on it Otherwise, the table is soon ex- 
hausted, and the search ends unsuccess- 
fuUy. 

Usually, a part of each record called the 
key field is set aside for a datum of a type 
that can be easily ordered and compared, 
and which can be used as a label for one and 
only one record in the table. The key fields 
may contain useful information, or they 
may be used just to make it convenient to 
order and search the table. Other fields in 
the record may hold information that isn't 
easy to put in order or to compare, or that 
may be duplicated or blank in some rec- 
ords. For example, a voter registration list 
might list one voter in each recwd. A three- 
field record could hold a voter's name, 
home address, and social security number. 
The name and the address could be stored in 
two text fields, and the social security 
number in a numeric field. The social secu- 
rity number field would make a good key 
field: Numbers are easier to order and 
compare than text and, barring errors, no 
two people are assigned the same number. 
Though the name be misspelled and the 



address wrong or absent, the number could 
still be used to locale the record. 

BIN_SRCH does a binary table search. 
It receives three items on the stack, 1) the 
address of a table, with its records arranged 
so their key fields are ordered small to large 
and no key fields are duplicated; 2) the 
number of records in the table; and 3) a test 
datum which is tested for a possible match 
with some key field in the table. If a match 
is found, the address of the matching record 
is returned on the stack. If none was found, 
a false flag is returned. [1] 

An average success- 
ful search requires 
log2(N)-l compari- 
sons. 



There are two possible exit points. If a 
match is found, it immediately returns; 
otherwise, it eventually exhausts the table, 
exits the search loop, and returns. If it starts 
with a table of zero length, execution falls 
through to the code that returns a false flag, 
as if an unsuccessful search had been done. 

To start the search, the whole table is 
defined as the current search region. Two 
variables on the stack hold the lower and 
upper table indices of the current region. 
During each pass through the search loop, 
the key field in a record at the middle of the 
region is compared with the test data. If the 
two match, the address of the just-inspected 
record is left on the stack and the word 
returns. Otherwise, a new search region is 
defined. If the test data was greater than the 
contents of the key field, the index of the 
record following the one just tested be- 



comes the new lower bound. If the test 
data was the smaller, then the index of the 
record preceding the one just tested be- 
comes the new upper bound. Then a new 
pass through the search loop tests another 
middle record. [2] If no match exists, the 
lower and upper bounds eventually cross 
each other, and die putative upper index is 
less than the lower. The loop termination 
test fmds this and exits the loop. At that 
point, a false flag is left on the stack, and 
the word returns. 

BIN_SRCH uses some Forth-83 
double-number operators to manipulate 
pairs of stack variables, not double-preci- 
sion numbers. If you're using a 32-bit sys- 
tem, you might want to check these words 
to be sure they work with a pair of stack 
items, not just with one natural, double- 
precision-sized machine word. [3] 

1 LOAD will load everything, only 
FORTH DEFINITIONS ALSO sets up 
the search order. [4] Laxen and Perry's 
F83 sets the search order thus. On systems 
such as fig-FORTH that set up the search 
by linking vocabularies when they're 
compiled, forth definitions 
would do. 

Screen three contains words that 
handle the table records. Redefinition of 
these words would allow access and 
comparison of various types of records 
and the data therein. 

Screens five through seven contain 
words to demonstrate table searching. 
KEY>FUNC receives the address of a 
table of records, and a test keycode. The 
first item in the table is the number of 
records. After that, the records are listed. 
Each record holds a keycode in the ftfst 
field and a function address in the second. 
I If a keycode match is found, a corre- 
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NGS FORTH 

A FAST FORTH, 
OPTIMIZED FOR THE IBM 
PERSONAL COMPUTER AND 
MS-DOS COMPATIBLES. 



STANDARD FEIATURES 
INCLUDE: 



•79 STANDARD 

•DIRECT I/O ACCESS 

•FULL ACCESS TO MS-DOS 
FILES AND FUNCTIONS 

•ENVIRONMENT SAVE 
& LOAD 

•MULTI -SEGMENTED FOR 
LARGE APPLICATIONS 

•EXTENDED ADDRESSING 

•MEMORY ALLOCATION 
CONFIGURABLE ON-LINE 

•AUTO LOAD SCREEN BOOT 

•LINE & SCREEN EDITORS 

•DECOMPILER AND 
DEBUGGING AIDS 

•8088 ASSEMBLER 

•GRAPHICS & SOUND 

•NGS ENHANCEMENTS 

•DETAILED MANUAL 

•INEXPENSIVE UPGRADES 

•NGS USER NEWSLETTER 

A CmPLETE FORTH 
DEVELOPMENT SYSTEM. 



PRICES START AT $70 



MEW<*-HP>150 & HP-110 
VERSIONS AVAILABLE 

IIS 

NEXT GENERATION SYSTEMS 
P.O.BOX 2987 
SANTA CLARA, OA. 95055 
(408) 241-5909 



spending function address is returned; 
otherwise, it returns a false flag. 
KEY_DEMO uses KEy>FUNC to search 
some sample keycode/function tables. The 
sample functions just print a few things on 
the console display. If no table record 
matches the test keycode sent to 
KEY>FUNC, you get beeped at. 

How fast is this binary search? If N is the 
number of table records, and is the 
smallest power of two that is larger than N, 
then the greatest number of comparisons 
needed to exclude a match is K. A success- 
ful search could take as many as K compari- 
sons. The average number of comparisons 
for a successful search would be about 
log2(N)-l. [5] (Log2(x) is the logarithm to 
the base two, and is equal to ln(x)/ln(2).) 
For example, searching a table of 25 key- 
code/function records, suitable for 
KEY>FUNC, would take no more than five 
comparisons — ^since 32 (2'^5) is the small- 
est power of two greater than the table 
size — and the average number of compari- 
sons during successful table searches 
would be about log2(25)-l = 3.6. 

Screens eight through nine contain 
some words to set up a test table and run 
some speed tests. On my 7 MHz IBM PC- 
compatible computer, with the non-Forth- 
83 Standard words defined in high-level 
Forth, the time to set up and call 
KEY>FUNC averages between seven and 
nine milliseconds per search of a 256-ele- 
ment table. Generally, the greater the like- 
lihood of finding a match, the less time a 
search takes. 

Constraints and Possibilities 

BIN_SRCH must use table indices in- 
stead of absolute addresses to specify its 
search region — even with tables of simple 
data like characters or integers — because 
the operation that finds the middle element 
does so by averaging the regions' limits, 
and the intermediate sum of the two ad- 
dresses might exceed Forth-83's range of 
16-bit unsigned integers (i.e., 65535). And 
to swiftly divide that sum, 2/ is used; it 
does signed division, and the sum of the two 
addresses might exceed the range of posi- 
tive signed integers (i.e., 32767). [6] 

The tables delivered to bin_srch 
must have no more than 16383 records. 
That keeps the intermediate sum of the 
index limits within the range of positive 
signed integers. A big integer array for a 
small program could be larger than that — 
even in a 16-bit address space — and a vir- 



tual array in disk storage could be huge. 
With modified table-access words, indices 
in the range -16383 to 16383 might be used, 
doubling the workable table size. With a 
modest loss of speed, D+ and um/mod 
might be used to average the search 
region's limits, and D< could be used for the 
test at the end of the search loop. 

Other search methods that also progres- 
sively approach a matching table record are 
described in the book by Knuth and seem 
well suited to Forth. A binary search that 
specifies a search region and center record 
not with three variables (the upper, lower, 
and center indices) but with two (the center 
index and its distance from the center of the 
region last checked) might be a bit faster, 
and could use indices in the range zero to 
32767. A search that uses Fibonacci num- 
bers needs only the speedy addition and 
subtraction operations to locate the next 
record to test, and would not have oversized 
intermediate results. A table whose records 
contain pointers [7] that explicidy trace out 
branching relationships among the data in 
the records can have records deleted and 
inserted without requiring that the rest of 
the table be shifted around. 

Notes 

[1 ] A valid address must be non-zero, and a 
false flag is the quantity zero. 

[2] The search paths trace out the branches 
of a tree-like pattern. Each middle record 
corresponds to a fork (called a node) in the 
tree. The leftward branch (if one exists) and 
all its subsequent nodes would hold data 
that is less than the aforementioned fork; 
and a rightward branch and all its nodes 
would be greater. In a plain ordered table, 
the algorithm implicitly describes a binary 
tree. 

[3] Forth-83, the latest codification of con- 
ventional Forth practice, specifies that 
single-precision numbers be 16 bits long, 
the word size used by most Forth words. 
DUP, SWAP, and ROT are some prominent 
examples. 32-bit double-precisicm num- 
bers are handled as pairs of single-precision 
numbers, and a set of double-number op- 
erators such as 2DUP, 2 SWAP, etc. are 
generally used on those longer numbers. 
The double-number operators are also use- 
ful for working with pairs of numbers on the 
stack, when the word size is less of an issue 
than the fact that the numbers are distinct, 
not components of a double-precision 
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number. For example, 2 swap is tidier 
than ROT >R ROT >R, and if it's available 
in machine code, it is faster. It happens that 
16-bit words are the size most conven- 
iently handled by the most common small 
computers, and Forth systems running on 
them often have double-number opera- 
tors. Some of the newer (and more expen- 
sive) small machines can handily work on 
32-bit numbers, and it would be possible 
for a Forth system running on them to omit 
double-number operators and make do 
with the machine's natural ability to use 
double-precision numbers. I have never 
used such a computer, though, and can't 
say how likely that would be. 

[4] This is an experimental proposal by 
William F. Ragsdale (Forth-83 Standard, 
pp. 61-65). CONTEXT is an array of vo- 
cabulary addresses. When a word must be 
found in the dictionary, the listed vocabu- 
laries are searched in order, starting with 
the first array item . CURRENT is a variable 
that holds the address of the compilation 
vocabulary, into which words are to be 
compiled. A vocabulary, when executed. 



puts its address into the first location in the 
CONTEXT array, replacing whatever was 
there before, definitions copies the 
first item of the CONTEXT array into 
CURRENT. ONLY is a vocabulary with 
special actions. It clears the CONTEXT ar- 
ray and puts its address in the first and last 
array locations. The only vocabulary con- 
tains a few words that provide access to the 
other regular vocabularies. ALSO shifts all 
the CONTEXT items (except the only item 
at the end of the array) one position toward 
the end of the list and leaves the leading 
item duplicated. The second ONLY item at 
the end of the array is not disturbed. Thus, 
ONLY 1ST ALSO 2ND DEFINITIONS 
ALSO 

would make the search order: 

2ND 2ND 1ST ONLY 

and 2 ND would be the compilation vocabu- 
lary. Additionally, ALSO is often used to 
leave the first item duplicated, because 
compilation of a colon definition starts by 
putting the contents of current into the 
first location of CONTEXT. 



[5] The Art of Computer Programming 
(Vol. 3, 2nd ed.) by D.E. Knuth, has a 
technical description of this and other bi- 
nary search methods. That fairly readable, 
unpatronizing seven-volume tome is 
chock-full of practical data processing 
methods. It might be available from a 
nearby college library, or a small public 
library might obtain it though an interli- 
brary loan. 

[6] On Forth-83 systems, 2/ produces a 
floored quotient, corresponding with the 
floored results of Forth-83 division. The 
remainder has the sign of the divisor. Op- 
erations such as 2 / , / , or MOD, which don't 
produce both quotient and remainder, pro- 
duce results as if /mod swap drop or / 
MOD drop had been performed. If you 
have a Forth-83 Standard system, try these 
division operators on some negative num- 
bers. If floored division still seems myste- 
rious, try multiplying the divisor and the 
floored quotient, then add that product to 
the floored remainder, the result should be 
the dividend. I've seen one Forth system 
that incorrectly implemented 2/ as a 



Total control 
with /MM" 

For Programming Professionals: 
an expanding family of compatible, high- 
performance, compilers for microcomputers 



For Development: 

Interactive Fbrth-83 Interpreter/Compilers 
for MS-DOS, OS/2, and the 80386 

• 16-bit and 32-bit implementations 

• Full screen editor and assembler 

• Uses standard operating system files 

• 500 page manual written in plain English 

• Support tor graphics.floating point, native code generation 



For Applications: Forth-83 Metacompiler 

• Unique table-driven multi-pass Forth compiler 

• Compiles compact ROMable or disk-based applications 

• Excellent error handling 

• Produces headerless code, compiles from intermediate states, 
and performs conditional compilation 

• Cross-compiles to 8080, Z-80, 8088, 68000, 6502, 8051, 8096, 
1802, 6303, 6809, 68HC11, 34010, V25, RTX-2000 

• No license fee or royalty for compiled applications 



mi 



Latx>ratory Microsystems Incorporated 
Post Office Box 10430, Marina del fley, GA 90295 
Phone Credit Card Orders to: (213) 306-7412 
FAX: (213) 301-0761 



TDS 9090 FORTH COMPUTER 

Ideal for starter, teaching or target system 



build into your product 
for rapid completion! 



program withi IBM-PC 




complete Fig-Forth system 
• 30K RAM; 16K EPROM 

over 3000 in use in Europe 



connect to keyboard, led display, RS 232 
35 I/O llnmi; 10 bH A/D option 
low power - down to 3 ma @ 6-16v 



Connect the 4" x 3" TDS 9090 alngla-board computar to an IBM-PC or 
compatible and start writing Forth coda Immadiatalyl Lots of ready made 

applloatlon programs come with the kit to do interrupt-driven I/O, graphics led 
driver, frequency measurement, solkl-state speech and data-logging. The board 
includes a ROM-resklent Forth language kernel and an assembler. By storing 
generated code in either non-volatile RAM or EPROM, the board can be used in a 
target system or stand-atone product Based on the CMOS Hitachi HD 63A03Y 
mk:roprocessor, it has two timara, two serial ports and intemipta which are 
available via Forth Instructions. Also included on board are 30K RAM for 
storing source code or data, 16K EPFtOM/novram for firmware, 256 bytes EEPROM, 
35 I/O lines, two RS 232 serial Interlaces, a watchdog tinier to insure recovery from 
crashes, and an expansion bus. Interface the TDS 9090 to an 8 x 8 keyboard or an 
kxl display, or use two of the I/O lines as an I2C interface. The ROM-resident Forth is 
an extended version of Fig-Forth with Forth words to support all the onboard 
peripherals, as well as the keyboard and led interfaces. Put product application 
software into PROM and It starts to run as soon as power is applied. Made in England 
by Triangle DigHal Services, and well-known In Europe, the TDS 9090 is now 
supported in the USA and Is available with less than two-week delivery at only 



Ths Sasllg Company 1193 Mosslsy Rd 
tsl: (716) 425-4367 or fax 



$219 (25qty) 

Victor NY 14564 USA 
(716) 425-7381 
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Scr # 1 Forth-83 

C binary table search 

1 ONLY FORTH DEFINITIONS ALSO 
CREATE BINSRCH MARK 
: ?ENOUGH C n ~ ) 

1+ DEPTH SWAP U< ABORT" ' 
: NTHRU C start end ~ D 
E ?ENOUGH OUER DUER 1+ 
U< IF 1+ SWAP DO I U 



DECIMAL 



2 
3 
4 
5 
B 
7 
B 

3 E 9 
OJMLY 
1 
2 



llAprBSdna 5 
C FORGET 'able marker ) 
Not enough parameters . " ; 



I LOAD 



LOOP 



THEN 



NTHRU 
FORTH 



DEFINITIONS ALSO 



DECiriAL 



Scr 

C 

1 : 
E : 

3 : 

4 : 

5 : 
B : 

7 : 

8 : 

9 : 



1 -1 
S E 
3 

4 : 

5 : 

Scr 



E 

stack 
EDUP 
EDROP 
ESWAP 
EOUER 
NIP 
-ROT 
E* 
U* 

NSBN 



Forth-83 
ops system specifics 



miscellany 
nl nE — nl nE nl nE ) OUER OUER ; 
n n — 3 DROP DROP ; 

nl nE n3 n4 — n3 n4 nl nE ) ROT >R 
n4 — nl nE n3 n4 nl nE ) 3 
nS ■) SWAP DROP ; 
~ n3 nl nE ? ROT ROT ; 
DUP + : 



IBflarBSdna 5 



nl nE n3 
nl nE — 
nl nE n3 
n — E*n 
ul uE -- 
n — -1 
CONSTANT FALSE 
CONSTANT TRUE 
CONSTANT /N 



ROT R> 
PICK 3 



PICK 



5 
u3 

I 



Uh* DROP ; 
1 5 DUP IF 



0> E AND 



THEN 



C S bytes for IB-bit system 
BEEP C — ) 7 EMIT ; 
HEX C — ) IB BASE ! : 



C 111 . . IIIB 5 

C size of natural machine word 
4 bytes for 3E-bit system 




1 
E 
3 
4 
5 
6 
7 
8 
9 



# 3 Forth-B3 
table access & comparison 
/N * CONSTANT /T 
/T* 
TA+ 



T>K 
T>F 



17nar89dna 
C size of table record 

#tabl._rcrd — size ) /T U* ; 

tabl base idx — tabl.._rcrd__adr D /T* + ; 

tabl..rcrd....adr — rcrd_key....adr D ; inhEDIATE 
tabl rcrd adr — rcrd cfa adr ) /N + ; 

Oil < ="> ) - NSGN : 



TCOnP C nl nE 1 



simple bit shift, thus performing unsigned 
division, so you might want to check for 
that too. 

[7] A pointer is a variable that contains an 
address. In this example, each table record 
would contain one or more pointers that 
each hold the address of the next record up 
or down in the branching pattern. 



David Arnold was attracted to Forth because it compiles fast code and because a 
programmer can extend and refine it from the system roots up. He started with a 
Commodore 64, then got F83,andwound up writing a systemfrom scratch to run on 
a PC clone. A disabled person, he is working toward earning a living in a restricted 
environment. 
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Scr tt 4 Farth-B3 

C binary search for a matching record 17narB9dna ) 



1 


: BIN SRCH C tabl adr tabl siz 


srch . 


key — rcrd adr 1 f" ) 




E 


DUER IF 




C table not empty? 


) 


3 


>R 1- C . . — 


tabll 


high idx loui idx -r- n 


) 


4 


BEBIN 








5 


EDUP + E/ 3 PICK OUER TA+ 


C . . 


— tb h 1 m rc -r- n ) 




B 


DUP T>K @ RS TCOnP 


C . . 


— tb h 1 m rc ? -r- n ) 




7 


?DUP 0= IF 








8 


R> DRDP >R EDROP EDRDP 


R> 


EXIT C — rcrd._adr 




9 


THEN 


C . . 


— tb h 1 m rc ? -r- n ) 







NIP 0< IF 1+ ELSE 1- - 


ROT 


THEN NIP 




1 


EDUP < UNTIL 


C . . 


— tabl hghi loiui -r- n 


) 


E 


R> DRDP 








3 


THEN 




C . . — XXX 




4 
5 


EDROP DROP FALSE ; 




C . . -- F- ) 





Scr # 5 Forth-83 

C search keycode/f unction tables sample functions IBHarBSdna ) 



1 


: KEY>FUNC 


C ktabl key — cfa 1 


f 


= ) 




E 


OUER /N + 


ROT @ ROT BIN....SRCH 




DUP IF T>F @ 


THEN ; 


3 
4 


: SHOU) LOW 


C c — ) 








5 


CR . " ' - " 


DUP SB + EniT ." ' 




E SPACES U. ; 




B 


: SHOW CHR 


C c — ) 








7 


CR . " • " 


DUP 3E HAX EMIT . " 


7 )» 


3 SPACES U. 




8 


: SHOW SPC 


C X ~ ) CR DROP 




'spc'" SPACE 


'3E U. ; 


3 


: KEY QUIT 


C X — 5 CR DROP 




' quit demo ' " 


CR QUIT 



1 












E 












3 












4 












5 













Scr # B Forth-83 










HEX C keycode/f unction tables 


E6Feb89dna 5 


1 CREATE LOUKEYS , 


C # keycodB/'f unction entries 


) 




E 1 , ' SHOW LOW , 


B , ' 


SHOW LOW , 


C 


*A "B 5 


3 3 , ' SHOW LOW , 


IB , 


KEY QUIT , 


c 


*C esc) 


4 HERE LOWKEYS /N + 
5 


- /T / 


LOWKEYS ! 






B CREATE HIGHKEYS , 










7 EO , ■ SHOW SPC , 


41 , 


SHOW CHR , 


c 


spc A D 


8 4E , ' SHOW CHR , 


43 , 


SHOW CHR , 


c 


B C ) 


9 61 , ' SHOW CHR , 


6E , 


SHOW_CHR , 


c 


a b ) 


63 , ' SHOW CHR , 






c 


c ) 


1 HERE HIGHKEYS /N + 


- /T / 


HIGHKEYS ! 






E DECIMAL 

3 

4 

5 
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Scr # 7 Forth-B3 

C select kybd functions 2BFeb89dna ) 

1 : ?D0 KEY C c cfa I x F-= — ) 

S ?DUP IF EXECUTE ELSE DROP BEEP THEN ; 
3 

4 : KEY_DEnO C — D 

5 CR ." Key_demo Press ESC to quit. " 
B BEGIN 

7 KEY 

8 DUP 3E U< IF LQWKEYS ELSE HIGHKEYS THEN C . . — key tab D 

9 DUER KEY>FUNC C . . — key cfa I x f= ) 

?DO_KEY 

1 UNTIL ; 
E 

3 
4 
5 



Scr # 8 Forth-83 

C make & fill test table llAprBSdna 5 

1 CREATE TEST HARK C FORGET 'able marker 3 
E CREATE TEST_TABLE E56 /T* /N + ALLOT 

3 : FILL_TABLE C n__step — ) 

4 1 7EN0UGH TEST _T ABLE ! 

5 S5B DO 

6 TEST_TABLE /N + I TA+ OUER I U* C . . — nstep rcrd n 5 

7 EDUP SWAP T>K ! 1+ SWAP T>F ! 1 TEST TABLE +! 
B LOOP 

9 DROP ; 

1 FILL TABLE 

1 

E \ If I=a _record_ index & N=I*n_step, each record contains 

3 \ N in the key field & N+1 in the data field. 

4 \ The key fields are ordered small to large, and all data 

5 \ fields hold a non-zero quantity. 



Scr # 9 Forth-83 

C speed test OBAprBSdna 5 

1 : TEST SPEED C #times — D 

E 1 7ENDUGH BEEP ." working.." 

3 DO 

4 E56 DO 

5 TEST TABLE I KEY>FUNC DROP 
B LOOP 

7 LOOP BEEP ; 

8 

9 
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BEST OF 

GENIE 

GARY SMITH - UTTLE ROCK, ARKANSAS 



X lews from the GEnie Forth 
iJoundTab/e— Once again ilis time toenjoy 
some comments from recent GEnie Forth 
RoundTable guest conferences. Since I am 
charged with both the privilege of produc- 
ing this column and arranging the guest 
conferences, I must admit I truly enjoy 
these recaps. They give me an opportunity 
to recall some of the pearls of wisdom 1 
have been audience to, butperhaps failed to 
properly savor. There are, most definitely, 
pearls to be gathered. 

With the possible exception of confer- 
ences such as FORML, Rochester, euro- 
FORML and now the Australian Forth 
Symposium and SIGForth, I cannot imag- 
ine where else one could hope to be ex- 
posed to the views of such a variety of Forth 
luminaries. If you have not participated in 
one of these conferences, I encourage you 
to do so. The words remain for your inspec- 
tion in the GEnie Forth Library, but the 
intimacy of the moment is missed forever. 

For the present moment, sit back and 
enjoy with me these moments of insight. 
The guests will be: 

• The creators of VP-Planner Plus: Jim 
Stephens, Kent Brothers, Doug Lank- 
shear, and Chris Worsley. 

• Steve Roberts, vagabond computerist 
and columnist, with John Bumgamer of 
Information Appliance Inc. and Terry 
Hohnes, the creator of tForth. 

• Tom Zimmer, creator of F-PC, the pub- 
lic-domain Forth for PCs with greatly ex- 
tended features. 

• Roedy Green, who created the 32-bit 
public-domain BBL Forth and Abun- 
dance business manager. 

• ChuckMoore,Forth'screatorandowner 
of Computer Cowboys. 

• Phil Koopman, senior scientist for Harris 
Semiconductor and author. 

• Robert Smith, ofLockheedPalo Alto and 
Forth math guru. 



In the past I have presented the guests' 
opening remarks, which set the tone of their 
respective conferences. This format has 
been well accepted by the readers, so the 
expression, "If it ain't broke, don't fix it" 
seems appropriate. 

* :*< * 



Withhold source code 
only when you're 
ashamed of it 



Jim Stephenson (with Kent Brothers, Doug 
Lankshear, and Chris Worsley) 
May 1989 

Stephenson Software 

First, a short blurb about VP-Planner for 
those who may not know it. VP-Planner is 
a spreadshee^database program for the 
IBM PC, best known for its Lotus 1-2-3 
compatible spreadsheet linked witii power- 
ful dB ASE and multidimensional data-file 
handling capabilities. It was initially devel- 
oped in Forth by Jim Stephenson, Dave 
Mitchell, and Kent Brothers of Vancouver, 
Canada, and was first released in Septem- 
ber 1985 by Paperback Software of 
Berkeley, California 

VP-Planner Plus, released in October 
1987, added more database features, 1-2-3 
release 2 compatibility, background^rior- 
ity recalculation, and multi-step undo. The 
product has been translated into more than 
ten languages and is sold world-wide. Fur- 
ther development continues on as-yet-un- 
announced features. The development 
team now also includes Doug Lankshear, 
Rick Falck, Bob Tellefson, and Chris 



Worsley. Jim, Kent, Doug, and Chris 
have joined the conference this evening to 
share ideas and answer questions about 
either VP-Planner or the Forth develop- 
ment system. The Forth system has the 
following characteristics: 

1. direct threaded with next coded in- 
line; 

2. top-of-stack in BX register; 

3. compiler words and headers in sepa- 
rate area of memory; 

4. text in separate area for foreign lan- 
guage translation; 

5. colon bodies separated from machine 
code; 

6. hybrid colon/assembly words; 

7. local variables and subwords; 

8. overlays; 

9. extensive Forth-level breakpoint/trace 

facility; 

10. IEEE 64/80-bit software floating 
point and 80x87 support 

Steve Roberts ( with JohnBumgarner and 
Terry Holmes) 
June 1989 

Freelance writer on tour somewhere on 
Winnebiko 

You probably already know about the 
Winnebiko, so I won' t go into much detail 
on the general stuff, lifestyle, solar, etc. 
The emphasis here is on the control sys- 
tem, and I'm delighted to have with me 
(electronically) John and Terry, who can 
answer the substantial questions about the 
new Forth laptop and the details of its im- 
plementation. Essentially, I am using this 
machine as the hub of a real-time control 
environment in the new bike, in charge of 
a large "resource bus" that carries all 
audio, serial, and digital information in 
the bike. [The projected release for Infor- 
mation Appliance's Swyft Forth Laptop 
was first quarter 1990. gls] 
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Tom Zinvner 
June 1989 

Senior Programmer at Maxtor and creator 
of F-PC Forth 

r m not sure what to say after such a nice 
intro, but I will say that I am glad to be 
invited to this round table and for the opw- 
tunity to learn more about GEnie. My latest 
efforts have been in the area of cleaning up 
F-PC for a new release. The first, and per- 
haps the most significant, is the adjustment 
of F-PC to use multiple directories fac its 
sources, rather than keeping five billion 
files all in one directory. F-TZ, as it is called 
for the moment, uses a Forth path, as 
suggested from the East Coast Forth Board. 

Roedy Green 
July 1989 

Owner of Canadian Mind Products and 
creator ofBBL Forth 

There are two sorts of things you proba- 
bly would be interested in hearing about 

• Internals of the 32 bit BBL Forth com- 
piler. 

• Externals of the Abundance database 
language. 

Abundance is more interesting, because 
I was able to experiment with some novel 
concepts in languages. BBL is interesting 
firom the point of view of fanatical attention 
to detail.... Jaunting is the most interesting 
[feature of Abundance]. It is the ability to 
run backward in time. Arrays and files use 
identical syntax. There are no subscripts. 
Like a spreadsheet, values automatically 



redisplay on the screen when recomputed. 

Chuck Moore 
August 1989 

Originator of Forth and owner of Com- 
puter Cowboys 

Pre-conference prelude, the "Future of 
..." is a catchall for everything having to do 
with Forth. Its current pl^e in the world is 
impossible to determine, and largely irrele- 
vant. Forth is a valuable tool — and will 
remain so — ^regardless of the number using 
it Recently I was obliged to use conven- 
tional CAD software. I am dismayed that it 
hasn't evolved from the 60's. Forth is the 
only hope for improved software, ignoring 
the ever-hopeful AI and neural nets. Com- 
puters are getting ever-more complicated, 
in violation of the first principle of human 
activity: "Keep It Simple." 

In respect for this unique forum — 25 
words or less — I offer the following state- 
ments to challange/guide question/com- 
ment 

1. I like classic Forth. 

2. This includes BLOCKS — simpler, 
faster, better than files. 

3. VOCABULARY has been misused by 
fig-FORTH. It is a poor substitute for 
fast compile. 

4. Forth must evolve. Standards are very 
dangerous. 

5. ANSI committee deserves thanks for 
"above andbeyond call of duty." Theirs 
is the impossible dream. 

6. Marvelous opportunity for non-ANSI 



Forths. 

7. Forth architecture is superb for micro 
(macro) computers. Many variants 
should be explored. 

8. Three keys are necessary and suffi- 
cient. QWERTY is a joke. 

9. Marvelous opportunity for non-IBM 
PCs. 

10. Work smart, not hard — forethought 

1 1 . A program that can do everything (ie, 
SP ICE) can do nothing well, fast, eas- 
ily. 

12. PUSHandPOP are better names for >R 
and R>. 

13. Multiply is a much-over-used arithme- 
tic operation (i.e., FFT can be replaced 
by Walsh-Hadamard). 

14. Roating point is a bad joke. 

15. Widihold source code only when 
you're ashamed of it. 

Forth is the best computer language. I' 11 
be using it another 20 years, with a few 
changes. 

Phil Koopman 
September 1989 

Senior Scientist, Harris Semiconductor 
and author of Stack Machines: The New 
Wave 

Some of the things I have found out 
about stack machines go against widely 
held (at least, outside the Forth commu- 
nity) ideas. For example, stack machines: 

• don't need stacks bigger than 16 to 32 
elements 

• need not have a significant context- 
switching time 

• can cycle their clocks every bit as fast as 
(or perhaps faster than) RISC processors 

One thing I run across continually is 
that folks confuse the requirements for 
real-time embedded control with those of 
workstation environments. One of my pro- 
fessional goals is to understand more about 
Forth-derived stack computers in order to 
help them gain acceptance in applications 
for which they are well suited. Stack ma- 
chines seem to be superb at real-time em- 
bedded control (although I still want to do 
more research to quantify this notion). But, 
what about other application areas? If stack 
machines are the answer, what are the 
questions? 

Robert L. Smith 
October 1989 Research 
Specialist with Lockheed, Palo Alto 

Thank you. For floored division, it 
helps to focus on the modulus or remainder 
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rather than the quotient. Most users use 
only positive arguments, so floored or non- 
floored give the same results. For almost all 
cases that I know of, if you have at least a 
negative numerator, you probably should 
use floored division. 
As fOT floating point 

1. Should Forth have it at all? 

2. If so, should it be in the Standard? 

3. [Should it be] ffiEE floating point? 



It is never too late to begin participation 
in the guest conferences. They are usually 
scheduled for the third Thursday of the 
month except for the last three months of 
the calendar year, when they are scheduled 
for the second Thursday to avoid conflict 
with the holidays. Obviously there are ex- 
ceptions, so it is always wise to note the 
current schedule that appears each day you 
log onto the GEnie Forth RoundTable. I 
might add that without attendees (with 
questions) it is pointless to schedule these 
wonderful guests. 



To suggest an interesting on-line guest 
or to share a message, leave e-mail 
posted to GARY-S on GEnie (gars on 
Wetware and the Well), or mail him a 
note via the offices of the Forth Interest 
Group. 



(Continued from page 15.) 

next command. 

Screens 1-5 represent the first steps of 
this development, 6-9 are the second stage, 
and 10-11 comprise the final stage. 



Chester H. Page earned his doctorate 
in mathematical physics at Yale and 
spent some 36 years at the National 
Bureau of Standards. His first Forth 
was Washington Apple Pi's fig- 
FORTH, which he modified to use 
Apple DOS, then ProDOS, and later to 
meet the Forth-79 and Forth-83 Stan- 
dards. Recently, he added many fea- 
tures ofF83. 



(Page screens, continued.) 



TRACE SCR « 8 

\ Second stage, continued 30JUL88CHP 

1 ASSEMBLE (DETOUR) 

2 sec, IP LDA, 2 *t SBC, FROM STA , IP 1+ LDA , » SBC, 

3 FFFF CMP, 101 BCC , 102 BNE , FROM LDA, FFFF CMP, 

4 101 BCC, 

5 102 DEX, DEX, W LDA, PHA, ,X STA, 

6 W 1+ LDA, PHA, 1 ,X STA, 

7 \ Directions -for detour 

8 FF # LDA, W 1+ STA, 

9 FF « LDA, W STA, 

10 \ Remove detour signpost 

11 FO « LDA, NEXT 19 + STA, « LDA, 

12 101 « LDY, IaI 1- JMP, END — > 

13 END sets the branches to the labels 101, 10 

14 103 is a dummy label ; /MOD puts two numbers on the stack, 

15 the -first would be misinterpreted as a label if no label 



NEXT lA + STA, 



etc . 



TRACE SCR tt 9 
\ Second stage, concluded 
1 

2 : TRACE [ '] (DETOUR) 2+ [ '■ 3 NEXT 19 + i ; 

3 : NOTRACE FO C ' ] NEXT 19 + I ; 
4 

5 ' (DETOUR) 2+ 100 /MOD ' (UNDETOUR) F + C! 

6 ' (UNDETOUR) 14 + C! 
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8 FLOOR 1+ (DETOUR) E + ' 

9 FLOOR ' (DETOUR) 17 + ' 

■ DETOUR 100 /MOD ' (DETOUR) 
1 

2 ' DUMMY >NAME ' FLOOR >LINK 

3 \ Establ ishes a 1 i nk bypass i 

4 HERE FLOOR ' 

5 QUIT 



!8 + C ! 



(DETOUR) 2C + C! 



the assembl er 



\ APPLE spec i -f i c 
<*» t* « *t «S «> TYPE 2 SPACES DECIMAL j 

1- PICK DISPLAY 



TRACE SCR # 10 

\ Th j rd s tage 

1 HEX 

2 VARIABLE FLOOR 

3 : INDENT 24 C! 

4 : DISPLAY HEX 

5 : .S C INDENT DEPTH ?DUP I F DO DEPTH I 
A LOOP ELSE ." Empty stack" THEN ; 

7 : PRIM -2 ALLOT HERE 2+ , ; 

8 \ PRIM converts the execution procedure (installed by 

9 \ from that of a variable to that of a primitive 

10 CREATE (UNDETOUR) PRIM 8568 , 68EE , EF85 , 8568 , 

11 68F2 , F185 , FFA9 , 248D , A909 , 8DFF , 0923 , 

12 OOAO , F04C , 00 C, 

1 3 : NOTRACE FO [ ' 1 NEXT 19+ I ; 

14 --> 

15 NOTRACE moved up to al low the new DETOUR on next screen 
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CREATE) 



TRACE SCR t» 1 1 






\ Th j rd 


stage , 


cone 1 uded 






1 


CREATE 


(DETOUR) 


PRIM A538 , 


E9EE , 


8502 , 


2 


E9EF 


, CDOO , 


FFFF , 


2790 


, 07D0 


, F4A5 


3 


FFCD 


, 90FF , 


CAIE , 


A5CA 


, 48F1 


, 0095 


4 


F2A5 


, 9548 , 


A90 1 , 


85FF 


, A9F2 


, 85FF 


5 


A9F1 


, 8DF0 , 


0923 , 


00A9 


, 243D 


, A009 


6 


4C00 


, OOFO , 












: DETOUR >R .8 


KEY DUP 


7F = 


IF ABORT THEN 


8 


IF 


R> DROP 


R> R> 


DROP 


2- >P. NOTRACE 
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A5F4 



9 R) CR >NAME ID. 4 SPACES (UNDETOUR) ; 

10 : TRACE t ' ] (DETOUR) 2+ t'] NEXT 19 + ' ; 

11 ' (DETOUR) 2+ 100 /MOD ' (UNDETOUR) F + CI 

12 ' (UNDETOUR) 14 + C! 



13 FLOOR 1+ 



1 4 



DETOUR 



' (DETOUR) 
100 /MOD ■ 



OE + ! 
( DETOUR) 



FLOOR 

28 + C! ' 



(DETOUR) 17 
(DETOUR) 2C ■ 



15 HERE FLOOR 



QUIT 
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SEEING 

FORTH 

JACK J. WOEHR - 'J AX' ON GEnie 



emontons vers les fails moins vis- 
ibles, mais plus importantes. Nous y ver- 
rons le retour d I'age des Adeptes." 

— ^Louis Pauwels and Jacques Bergier 
Le Matin des Magiciens 
Editions Gaillimard, 1960 

The Grand Adept of Forth was and 
remains Charles Moore himself, whom 
some describe as the author of Forth and 
others as the discoverer of same. 

Charles Moore is a tall, smiling, pleas- 
ant man in his forties with neat, dark hair 
and a balding dome which he covers with a 
tasteful cowboy hat. He also wears cowboy 
boots and is associated with a firm called 
Computer Cowboys. 



Forth idealizes an 
imaginary processing 
unit 



Mr. Moore characterizes himself as 
"the one you can blame for all this." In a 
sense he is correct; a wind of freedom 
blows from the direction of Forth that is 
most disconcerting to those trapped in jobs 
which mandate the use of a traditional 
compiler. 

Moore is cryptic when asked to describe 
his invention. He is a habitual iconoclast, as 
delighted at bursting the bubbles of his dis- 
ciples as of his opponents. 

"Forth, to me, is more of an approach 
than a specification for a programming 
language," he says when asked his opinion 
of attempts to standardize Forth. 

Let us examine that ^proach. 

Forth idealizes an imaginary processing 



\ scasm32 . f ... 

\ assembler for SC32 in JForth 
\ ©1989 jack j. woehr 

\ permission to distribute and use freely granted 
\ to Forth Interest Group MEMBERS ONLY ! ! ! 
\ pay yer dues, cheapskate! 

\ and attend your local FIG Chapter regularly! 
\ jax@well.UUCP JAX on GEnie 

\ Minimal instruction assembler written in JForth for the Johns Hopkins 
\ JPL 32-bit stack machine known as the SC32. 
\ references : 

\ Silicon Conposers, Inc., 32-Bit 

\ Stack-Chip Microprocessor Preliminary, 

\ 4/12/89. 

\ ©1989, Silicon Conposers, Palo Alto, CA 

\ Ebcanples: 

\ 

\ CALL 1234567 ADDRESS , 

\ 

\ ALU/SHIFT NEXT U3 SOURCE SO DEST PUSHS-POPR STACK CINDST<RLU BUSSRC 
\ V ALUCOND FL<ALUCOND FLAG SO&SRC ALU , 



hex 

only forth definitions also 

vocabulary SCASM32 

also SCASM32 definitions also 

\ *** Instruction Logic 

\ Instruction Types 

00000000 constant call 
20000000 constant branch 
40000000 constant branch? 
60000000 constant ALU/shift 
80000000 constant load 
AOOOOOOO constant store 
COOOOOOO constant load-addr-low 
EOOOOOOO constant load-addr-high 
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\ convenient op name aliases 

load-addr-low constamt lal 
load-addr-high constant lah 

\ Next Bit 

10000000 constant #next 

\ Src & Dst Bit Patterns 

14 constant dst-field 
18 constant src-field 



00 constant 

01 constamt 

02 constant 

03 constant 

04 constcuit 

05 constant 

06 constant 

07 constant 

08 constant 

09 constant 
OA constant 
OB constant 
OC constant 
OD constant 
OE constant 



sO 

si 

s2 

s3 

rO 

rl 

r2 

rS 

uO 

ul 

u2 

u3 

pc 

psw 

zero 



( OF reserved) 

\ Stack Bit Patterns 

10 constant stack-field 

00 constant nop \ This also applies for the Flag Field of the ALU/ 
Logic ops. 

01 constant popr 

02 constant pushr 

( 03 reserved) 

04 constant pops 

05 constant pops-popr 

06 constant pops-pushr 

( 07 reserved ) 

08 constcint pushs 

09 constant pushs-popr 
OA constant pushs-pushr 

( OB - OF reserved ) 

\ ALO/Shift 

\ Fields 

OF constant subtype-field 
OE constant bussrc-field 
OA constcuit alucond-f ield 
08 constant cin-field 

07 constant flag-field 

00 constant alu-operation-f ield 



(Continued on next page.) 



unit with an infinitely extensible instruc- 
tion set. Such a processor not yet existing, 
Forth is asymptotic to the progress of Forth 
implementations. So we see that where 
Moore appears frustratingly vague to his 
eager hearers, he is actually being explicit. 

If Moore is an adept, he must have a 
lineage. Dr. C.H. Ting, himself a Forth 
adept, compares the CISC (Complicated 
Instruction Set) style of Forth with the 
available academic models and proclaims 
Moore heir to Von Neumann. Von Neu- 
mann and his associates gave contours to 
serial computation conducted by elec- 
tronic digital devices which held near-uni- 
versal sway until recent years. Now the 
Harvard architecture rears up in belated 
challenge as we sit on the threshold of the 
parallel-computation age; but it is signifi- 
cant that the retooling of Von Neumannism 
inherent in Forth is of an age equal to the 
Harvard model, and it has progressed to a 
greater variety of implementations ahead 
of the evolution of the Harvard model, the 
latter requiring a much greater silicon in- 
vestment before its benefits could be made 
manifest 

Forth, from its inception, has been 
remarkably easy to implement on a certain 
level. This was one of its most attractive 
points to early enthusiasts who found 
themselves in a race with rapidly changing 
hardware in the computer explosion of the 
seventies and early eighties. Forth seems 
alive; once "life" has been established — 
once a nucleus of indispensable instruc- 
tions has been coded — the system awakens 
and begins to grow beneath the sculpting 
hand of the programmer. 

The real-world emulations of the ideal 
Forth have cuhninated in our time with 
microprocessors specifically designed to 
execute the fundamental Forth instruction 
set. Yet Forth itself remains elusive, ahnost 
reticent, much like Moore himself. Perhaps 
we have come as close to the Muse as she 
will allow us to approach in this Digital 
Dispensation, and we shall now be forced 
to take refuge in standards, and in tech- 
nique. 



Copyright ® 1989 by Jack J. Woehr. This 
article and the accompanying code 
comprise the third chapter of a book-in- 
progresstitledSeeingFoith. Theauthor 
is a frequent contributor to these pages 
in his role as the international coordi- 
nator of Forth Interest Group chapters. 
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(Multitasking, continued from page 18.) 
20 CONSTANT SCORE 

The 20 (lik& all numbers) is placed on 
the stack, then CONSTANT is activated. 
CONS T ANT is a defining wwd, and a defin- 
ing word is always followed by a name to 
give to the 'thing' it is to define (in this case 
SCORE). CONSTANT places this name in 
the dictionary, reserves space for one 
number, and installs the number on the 
stack in this space. This completes the 
building; it then adds instructions about the 
run-time behavior of SCORE.' All con- 
stants have the same run-time behavior, 
which is to place on top of the stack the 
number stored as part of their structure. 

CONSTANT could have been defined 
using the words CREATE (which starts the 
instructions on what to build) and DOES> 
(which starts the list of run-time behavior 
instructions) as follows:^ 
: CONSTANT 

CREATE , DOES> @ ; 

CREATE Starts the building process by 
adding a name to the dictionary, using the 
next word in the input string (the word after 
CONS T ANT) for the name. TTie , (comma) 
reserves two bytes and initializes them by 
storing the number from the top of the stack 
at the end of the dictionary and advancing 
the dictionary pointer (the pointer to the 
next available free space at the end of the 
dictionary). DOES> starts the series of run- 
time behavior instructions with the mini- 
mum action, which is to return the address 
of the first thing CREATE built after the 
name. In the case of a constant, this is the 
address of the stored value, so the only 
other action needed is to read the value 
stored there with a normal fetch. 

Returning to our new defining word, 
CREATE and DOES > are used to define the 
two functional parts of T IMER, as shown in 
Figure One. T imer builds a name and the 
space for two 16-bit variables, the user 
value uv and the internal value IV. The 
run-time behavior given to the word de- 
fined by T IMER is to put the address of the 
user variable on the stack and read the real- 
time clock. Then the last value read is sub- 
tracted and the user variable is corrected. 

'To be picky, F83 does not place the instnictkms 
there, it places a pointer to instructions. However, 
this is a point of iin(dementation detail that can be 
ignored here. 

It isn't in most systems — ^it is defined as a primitive 
in the interests of speed — but it could have been. 
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\ SubT Field Bit Patterns 

constant alu/logic 

1 constant shift /step 

\ BusSrc Field Bit Patterns 

constant dst<fl 

1 constant dst<alu 

\ ALU Condition Field Bit Patterns 

( 00 constant 0) \ These conveniently are unambiguously themselves! 
( 01 constant 1) \ Likewise with the Cin instructions. 

02 constant V 

03 constant _V 

04 constant _({NxV) |Z) 

05 constant (NxV) | Z 

06 constant N 

07 constant _N 

08 constant Z 

09 constant _Z 

OA constant _(_C|Z) 
OB constant _C|Z 
OC constant NxV 
OD constant _(NxV) 

OE constant C \ watch out with the hex nxortibers, always precede w/ ! ! 
OF constant _C 

\ Cin Field Bit Patterns 

( 00 constant 0) \ Conveniently, unambiguously themselves . . . 
( 01 constant 1) \ ... as w/ ALU Conditions above 

02 constant FL' 

03 constant _FL' 

\ Flag Field Bit Patterns 

( constant nop ) \ Same as above in the Stack Field Bit Patterns 
1 constant fKalucond 
\ ALU Operations 



15 


constant 


_(s0Ssrc) 


17 


constant 


sO |_src 


ID 


constant 


_s0| src 


IF 


constant 


sOjsrc 


20 


constant 





21 


constemt 


_sO 


22 


constant 


negl 


23 


constant 


sO 


24 


constant 


_src 


2C 


constsmt 


src 


2F 


constant 


sOxsrc 


41 


constant 


_sO+cin 


43 


constant 


sO+cin 


44 


constant 


_src+cin 


45 


constant 


sO+_src+cin 


46 


constant 


_src-_cin 


47 


constant 


sO-sro-_cin 


49 


constant 


sO- cin 
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4B constant sO-_cin 
4C constant arc+cin 
4D constant src-sO-_cin 
4E constant src-_cin 
4F constant sO+src+cin 
55 constant sOSsrc 
57 constamt _sO&src 
5D constant SOS_src 
5F constant _(sO|src) 
6F constant _(sOxsrc) 

\ Shift Instructions 
\ Shift Fields 

5 constant shift-field 
4 constant shiftin-field 
2 constant step-field 
1 constant flagin-field 

\ Shift Field Bit Patterns 

\ Shift 

( constant nop) \ Once again, this is conveniently already defined 

1 constant right 

2 constant left 

\ Shiftin 

constant <alucond 

1 constant <FL' 

\ Step 

constant step: src+cin 

1 constant step:src-sO-cin 

2 constant step:sO+src+cin(FL' ) 

3 constant step:sO+src+cin (_FL' ) 



\ already defined above in Shiftin 



\ Flagin 

( constant <alucond) 
1 constaint <shiftoutput 
\ *** Forming Instructions 
\ Control Flow 



: address \ control-instruction address — instruction' 

IFFFFFFF and or ; 

\ Shifting Bit Pattern to Instruction Field 



: shift-into-field 
« or ; 

\ Set Next Bit 



: next \ instruction — instruction' 
♦next or ; 

\ Src & Dst 



\ instruction bits field — instruction' 



(Continued on next page.) 



The last value read is then updated, and we 
exit with the address of the user variable 
still on the stack. 

A definition for (READ_CLOCK) to 
suit the IBM PC and F83 is given in Figure 
Two; it returns a number which is incre- 
mented 1193180/65536 times per second 
(a strange number, granted, but that is how 
IBMdesignedit). After this (or a substitute 
that suits your hardware) and timer are 
entered, the following can be used as a test: 

TIMER CLOCK 
: TEST 

BEGIN CLOCK 

@ DUP U. 0<= UNTIL 

." Timed out!" ; 

Then, if you enter the line: 
180 CLOCK ! TEST 

a series of decreasing numbers (the user 
variable) will be printed — which lasts just 
under ten seconds on my system — before 
the "Timed out!" message appears. 

To complete the task, the multitasker 
must be used. Multitasking has been part of 
almost all versions of Forth except fig- 
FORTH, the first of the public-domain 
versions. It is not, however, part of the 
standard. Unlike time-sliced multitasking, 
in which each task has to surrender the 
processor to the next task after a pre-deter- 
mined time interval whether it "likes" it or 
not, F83 (like most versions of Forth) uses 
a cooperative scheme. In this, a task passes 
control only when it is ready, thus simpli- 
fying the job of keeping track of who is 
doing what, and making the task inter- 
change very fast. The cost is that one can- 
not predict reliably exactly when task inter- 
change will take place, and if one task gets 
into an endless loop that does not contain 
the voluntary transfer word P AU S E , every- 
thing else stops for good. This latter case is 
the fault of the programmer, not the lan- 
guage. With care, the task latency time can 
be made very small, especially since all 
F83 words having to do with human inter- 
action — and whose execution times are, 
therefore, unpredictable — already contain 
the task interchange word pause. 

Different tasks share all resources other 
than the stacks, although a group of vari- 
ables has to be assigned to each task to keep 
a record of internal processor information 
during the time when other tasks have 
control. The tasks involved in the multi- 
tasking are linked into a circular list, each 
receiving control from the preceding one 
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and passing it to the succeeding one. Each 
task on the list can be active or asleep. In the 
latter state, it passes control on as soon as it 
receives it. Otherwise, it executes until the 
word PAUSE is encountered, either explic- 
itly or as part of an input or output word. A 
task can be activated by use of the word 
AWAKE. Multitasking can be turned off or 
on by the words MULT I and single. If 
absolutely essential, these could be used 
within a task if, for some reason, the task 
had to retain control for a certain period 
even though some input or output words 
(which would normally cause a task inter- 
change) are to be executed. 

The user-interface words involved in 
multitasking in F83 are given in Figure 
Three. The use of these words is demon- 
strated in Figure Four. First, we use the 
special defining word TASK : to build a 
task that prints 20 asterisks on the screen 
and link it into the round robin (which at the 
moment only consists of the outer inter- 
preter, which is handling our keyboard 
input). 

Note that the STOP is essential. Other- 
wise, when 20 asterisks have been printed 
and the task is over, disaster will strike as 
the computer tries to execute the stack for 
p RINT * S ! Also note that we have an inner 
loop just to slow things down a bit, other- 
wise all the asterisks will appear before we 
have a chance to do anything. This inner 
loop is a good neighbor and gives everyone 
else a go by, including the word PAUSE in 
the loop. 

Nothing unusual happens on the screen, 
as we have not turned on multitasking. We 
can change that easily by entering mult I. 
Still no asterisk appears; this is because 
when a task is built and linked, it is placed 
in the sleeping condition. Hence, we must 
enter print *s wake to wake it up. We 
can carry on typing at the keyboard, but on 
the screen our input will appear mixed with 
asterisks. Well, it will until 20 asterisks are 
printed, then things will return to normal. 

Entering print *S WAKE again will 
not cause another batch of asterisks to ap- 
pear. The task will resume with the (nonex- 
istent) word after stop, and disaster will 
strike. As it stands, PRiNT*sisa one-shot 
model only! 

If, during this batch of asterisks, we had 
managed to type 
PRINT*S SLEEP <cr> 

the output of asterisks would have stopped 
at once. The same would happen if we were 
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: source \ instruction register — instrusti^' 

src-field shift-into-f ield ; 

: dest \ instruction register — instruction' 
dst-field shift-into-field ; 

\ Stack Action 

: stack \ instruction stackop — instruction' 
stack-field shift-into-field ; 

\ Load and Store 

: zero-extended-offset \ instruction addr-offset — 
Off f f and or ; 

: zeo \ i a-o — i' \ convenient alias 
zero-extended-offset ; 

\ ALU/Shift Instructions 

\ ALU Operations 

: subtype \ instruction subtype — instnaction' 

subtype-field shift-into-field ; 

: bussrc \ instruction bussrc — instruction' 

bussrc-field shift-into-field ; 

: alucond \ instruction type — instruction' 

alucond-f ield shift-into-field ; 

: cin \ instruction type — instruction' 
cin-field shift-into-field ; 

: flag \ instruction type — instruction' 
flag-field shift-into-field ; 

: alu \ instruction operation — 

alu-operation-field shift-into-field ; 

\ Shift Operations 

: shift \ instruction shift -op — instruction' 
shift-field shift-into-field ; 



: shiftin \ instruction shifter-input — instruction' 

shiftin-field shift-into-field ; 

: step \ instruction step-op — instruction' 
step-field shift-into-field ; 

: flagin \ instructions flagin — 

flagin-field shift-into-field ; 

\ *** Assembly Buffer Management 

4 constant buf f-hdr-size \ link to next allocated buffer | 
1000 constant buff -size \ each buffer same size 

4 constant opsize \ each op is a lonf^rd on SC32 



variable 1st -buffer 
variable last-buffer 



\ as it says 

\ latest allocated buffer 
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variable asm-ptr \ the "dictionary pointer" for our assembler 

: asm-ptr. init \ — \ start off set to zero 
asm-ptr off ; 

: here \ — next -available-assembly-relative-address 

asm-ptr @ ; 

: (there) \ addr — of f set-in-any-buf fer 

buff-size mod ; 

: there \ here — real-address 

(there) last-buffer @ buff-hdr-size + + ; 

\ allocate $1004 bytes for assembly and a buf fer-linlcing header. 

: buff -err? \ — 

abort" No Buffer Memory" ; 

: get-buffer \ — absmemaddr | 

[ buff-hdr-size buff-size + ] literal MEMF_CLEAR 

[ forth ] exec? call exec_lib allocmem [ scasm32 ] ; 

: free-buffer \ reladdr — 
>abs 

[ buff-hdr-size buff-size + ] literal 

[ forth 1 call exec_lib f reemem drop [ scasm32 ] ; 

: free-all-buffers \ — 
1st -buf fer @ 
begin 

dup 8 swap free-buffer 
dup 0= 
until drop ; 

: get-lst-buffer \ — 

get -buffer dup 

if >rel dup ist-buffer ! last-buffer ! 
else true buff -err? 
then ; 

: get-subsequent -buf fer \ — 

get-buffer dup 

if >rel dup last-buffer @ ! last-buffer ! 
else true buff-err? 
then ; 

: manage-buffers \ — 

here (there) 0= here 0> and 

if get-subsequent-buffer then ; 

\ *** Output File Handling 

create out-f ilencune 100 allot 
variable out-fileptr 
variable outfile-buff 

: outf ile-err? \ 1 1 f — 

abort" Couldn't Open Output File" ; 

: writef ile-err? \ t|f — 

abort" Error While Writing Output File" ; 

: out-filename. default \ — 

0" ram:scasm32.out" Ocount 1+ out-filencune swap cmove ; 
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to type SINGLE, although this would 
"lock" the processor on the one task in 
which it occurred. The other tasks would 
not be asleep, but would start as soon as 
MULT I was issued, without having to be 
awakened. If the task in which the S INGLE 
command occurred didn't have multi 
later, or had no way of inputting the MULT l 
command (i.e., didn't involve the outer in- 
terpreter), there would be no way short of a 
system reset to regain control. 

BACKGROUND : adds a new task into 
the round robin. How can one remove one 
that is no longer needed? The simple answer 
is, you cannot. You can assign new instruc- 
tions to the old task name, but you must not 
FORGET the old task, as the circular list 
would be broken and disaster would strike 
when the processor tried to move around it 
To assign a new set of instructions, the word 
ACTIVATE is used to associate the new 
instructions with the old name and wake it 
up immediately. We will use ACT i VATE to 
assign a new version to PRINT *S, one 
which will be reusable. It is essential to 
reaUze that act l vate can only be used in 
a colon definition, because of the way it 
handles the return stack; attempts to use it 
interactively will cause a system crash. 

The version of our example shown in 
Figure Five is much better; when awakened 
after running to completion, it just loops and 
runs again. The original version is replaced 
by this improvement just by executing 
NEW-PRINT*S. 

For speed, you should have only enough 
tasks in the circular list to service the maxi- 
mum number that must run concurrently, 
and use task redefinition to move tasks into 
and out of the list Task interchange is fast, 
but it doesn't take zero time. 

Vast possibilities arise from the abiUty 
to run tasks, freeze them, and later restart 
them; for tasks to start and stop other tasks; 
and for tasks to be able to grab all the 
processing power for time-critical routines 
by issuing SINGLE and, afterwards, 
MULTI. However, the virtues of simplicity 
are nowhere stronger than in multitasking 
All tasks must cooperate, and the problem 
of keeping in mind the possible effects of all 
combinations of events rapidly becomes 
daunting. 

I do not like the name used for the word 
BACKGROUND:, as it suggests to me a 
master-slave relationship rather than a co 
operative arrangement. Also, the allocation 
of 400 bytes is not always ideal, although 
100 bytes of whatever quantity you allocate 



J 



Volume XI, Number 5 



33 



Forth Dimensions 



will go for the return stack and the rest for 
the data stack (unless you change task : ). 
Of course, in the spirit of Forth, if you don't 
like it, change it 

The formal definition of BACK- 
GROUND : is given in Figure Six. It is a 
short definition, and it is easy to modify the 
number of by tes required for the two stacks. 
After modification, it could be saved as 

MULTITASK or COOP -MEMBER QT any 

Other name which takes your fancy. Simi- 
larly, I would prefer is -now for acti- 
vate, but that is a personal matter. If you 
wish to change the name, it can easily be 
done with: 

: IS -NOW ACTIVATE ; 

which make the two names mean the same. 
If you wish to allocate more or less than 1 00 
bytes to the return stack, you will need to 
redefine TASK : and then use your new 
definition in a new version of BACK- 
GROUND:. To find where to change 
TASK : , decompile (e.g., SEE task : ) and 
then re-enter it, changing the 100 just past 
halfway through the definition to whatever 
number you prefer. The data stack will get 
the difference between what you put in 
your version of TASK: and the total alloca- 
tion for stacks you define in your version of 
BACKGROUND : . 

Interrupts wDl be needed for very rap- 
idly occurring events but, for most other 
situations, the timer and multitasker de- 
scribed above will give you real-time con- 
trol. For further detail on the multitasker in 
F83, see the shadow screens of the source 
code or chapter 23 of Inside F83 by C.H. 
Ting. 



(Continued.) 



Tim Hendtlass is principal lecturer in 
scientific instrumentation in the physics 
department of the Swinburne Institute of 
Technology. He discovered Forth in 
1980, used it in more and more instru- 
mentation, and introduced it as the labo- 
ratory language for all undergraduate 
students majoring in scientific instru- 
mentation. 



: open-outf ile \ — \ what the heck is going on here? 
out-filename new Ofopen 
dup out-fileptr ! 
0= outfile-err? 
out-fileptr @ fclose 
out-filename Ofopen dup 
0= outfile-err? 
out-fileptr ! ; 

: close-outfile \ — 

out-fileptr @ fclose ; 

: (get-outfile-buff ) \ — 0|abs_addr 
here MEMF_CIiEAR 

[ forth ] exec? call exec_lib allocmem [ scasm32 ] ; 

: get-outfile-buff \ — 

(get-outfile-buff) dup 0= abort" Couldn't Get Outfile Buff" 
>rel outfile-buff '. ; 

: free-outfile-buff \ — 

outfile-buff @ >abs here 

[ forth ] call exec_lib freemem drop [ scasm32 ] ; 



\ ~ 

\ how msiny 4k buffs to consoli- 

\ get the file buffer 

\ get the first asm buffer 

\ JForth DO is a ?D0 

\ mDve to data area 

\ get file buffer address 

\ move data 

\ get next data buff. 



: fill-outfile-buff 

here buff -size /mod 

date? 

outfile-buff @ 
Ist-buffer @ rot 
do 

dup buff-hdr-size + 
2 pick 

buff-size cmove> 
@ swap buff-size + swap 
inc file buff adr 
loop 

rot dup \ is there a modulus remaining? 

if \ yes, copy rest of data 

swap buff-hdr-size + -rot cmove> 

else 

2drop drop \ drop data-adr filebuf-adr Oct 

then ; 

: write-outfile \ — 

out-fileptr @ outfile-buff @ here fwrite 
0= abort" Error Writing Assembly to File" ; 

: save-as serribly \ — 

open-outf ile 

get-outfile-buff fill-outfile-buff 
write-outfile close-outfile free-outfile-buff ; 

\ *** Assemble to Memory 

\ all SC32 operauids are longwords 

: , \ longword — 

manage-buf fers here there ! 4 asm-ptr +! ; 

\ *** Initialization 

: scasm32 . init \ — 

scasm32 get-lst -buffer asm-ptr. init out-filename. default ; 

: wrapup \ — 

save-assembly free-all-buffers ; 

decimal 
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REFERENCE SECTION 



Forth Interest Group 

The Forth Interest Group serves both 
expert and novice members with its net- 
work of chapters. Forth Dimensions, and 
conferences that regularly attract partici- 
pants from around the world. For member- 
ship information, or to reserve advertising 
space, contact the administrative offices: 

Forth Interest Group 

P.O. Box 8231 

San Jose, California 95155 

408-277-0668 

Board of Directors 

Robert Reiling, President (ret. director) 
Dennis Ruffer, Vice-President 
John D. Hall, Treasurer 
Terri Sutton, Secretary 
Wil Baden 
Jack Brown 
Mike Elola 
Robert L. Smith 

Founding Directors 
William Ragsdale 
Kim Harris 
Dave Boulton 
Dave Kilbridge 
John James 

In Recognition 

Recognition is offered annually to a 
person who has made an outstanding con- 
tribution in support of Forth and the Forth 
Interest Group. The individual is nomi- 
nated and selected by previous recipients of 
the "FIGGY." Each receives an engraved 
award, and is named on a plaque in the ad- 
ministrative offices. 



1979 WiUiam Ragsdale 

1980 Kim Harris 

1981 Dave Kilbridge 

1982 Roy Martens 

1983 John D. Hall 

1984 Robert Reiling 

1985 Thea Martin 

1986 C.H. Ting 

1987 Marlin Ouverson 

1988 Dennis Ruffer 

1989 Jan Shepherd 

ANS Forth 

The following members of the ANS 
X3J14 Forth Standard Committee are avail- 
able to personally carry your proposals and 
concerns to the committee. Please feel free 
to call or write to them directly: 

Gary Betts 
Unisyn 

301 Main, penthouse #2 
Longmont, CO 80501 
303-924-9193 

Mike Nemeth 
CSC 

10025 Locust St 
Glenndale, MD 20769 
301-286-8313 

Andrew Kobziar 

NCR Medical Systems Group 

950DanbyRd. 

Ithaca, NY 14850 

607-273-5310 

Elizabeth D. Rather 
FORTH, Inc. 

1 1 1 N. Sepulveda Blvd., suite 300 
Manhattan Beach, CA 90266 
213-372-8493 



Charles Keane 
Performance Packages, Inc. 
515 Fourth Avenue 
Watervleit, NY 12189-3703 
518-274-4774 

George Shaw 
Shaw Laboratories 
P.O. Box 3471 
Hayward, CA 94540-3471 
415-276-5953 

David C. Petty 
Digitel 

125 Cambridge Park Dr. 
Cambridge, MA 02140-231 1 

Forth Instruction 

Los Angeles — Introductory and inter- 
mediate three-day intensive courses in 
Forth programming are offered monthly by 
Laboratory Microsystems. These hands- 
on courses are designed for engineers and 
programmers who need to become profi- 
cient in Forth in the least amount of time. 
Telephone 213-306-7412. 

On-Line Resources 

To communicate with these systems, set 
your modem and communication software 
to 300/1200/2400 baud with eight bits, no 
parity, and one stop bit, unless noted other- 
wise. GEnie requires local echo. 

GEnie 

For information, caU 800-638-9636 
• Forth RoundTable 
(ForthNet link*) 

Call GEnie local node, then type M710 
or FORTH 



(Continued on page 37.) 
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FIG CHAPTERS 

REPORT 

JACKWOEHR - 'JAX' ONGEnie 



The British Columbia Forth Interest 
Group Chapter has been having a very 
lively year. Their high-power sessions 
have included an address by Soviet Forther 
Serge Baranoff . Here are \hc minutes of a 
recent BC-FIG meeting. 

* * * 

Minutes of the BC-FIG Chapter 

October 5, 1989, 7:30 p.m. 
Place: BCIT, Bumaby, B.C., Canada 
Attended by: John Somerville, Gordon 
Ganderton, Nick Janow, 
Doug Lankshear, Zafar 
Essak, Kenneth O'Heskin, 
Paul Unruh, Jack Brown, 
and Dave Brown 

Robot 

The first item on the agenda was an 
update by Jack Brown on the progress of 
the robot-building course which four 
members of the chapter are taking. Jack 
displayed the hardware, and reported that 
the course is well designed and organised, 
with good support from their instructor. For 
example, when the students assembled 
their boards they were able to test them on 
the instructor's working robot, and any 
problems could be diagnosed and fixed on 
the spot. Jack also mentioned when he has 
his machine up and running (or down and 
whirring and cUcking — the device will end 
up looking like a mobile teakettle, probably 
rather menacing to a cat), he'll retrofit it 
with a Forth engine. It's obvious the partici- 
pants in the course are having a good time. 

Pocket Forth Computer 

John Somerville demonstrated a vin- 



tage Hewlett-Packard machine which con- 
tains many interesting features, not the 
least of which is Forth. Although no longer 
supported (one is reminded that obsolete 
technology , or what never did make it in the 
marketplace, is often inherently interest- 
ing; cf . recent exchanges on the Forth nets 
about the Jupiter Ace), the machine has 
room for add-on 64K memwy modules, 1/ 
O ports, 20-bit addressing on a proprietary 
H-P CPU — in other words, an early laptop 
in a hand-calculator box. The kicker of 
John's demonstration was that, although it 
boots up in BASIC, Forth can be called as 
a "subroutine" and, when in Forth mode, 
BASIC can be called as a subroutine of 
Forth! 

Fifth 2.7 

Jack Brown put Fifth (shareware ver- 
sion) through its paces, which revealed 
itself as not too unfamiliar to Forth users, 
although different enough to require the 
manuals and tutorials. Jack pointed out that 
some impressive application software has 
been written in Fifth, and some attendees 
expressed interest in checking it out fur- 
ther. 

The meeting adjourned for coffee and 
conversation. 

* * * 

About two years back, the Silicon Val- 
ley FIG Chapter, which was meeting at 
Hewlett-Packard, decided that bay area 
interest in FIG activities was great enough 
to split up into North Bay and South Bay 
FIG Chapters. A move fi'om the traditional 
H-P site and declining attendance in the 
North Bay are forcing the leaders to take a 



second look at their historic decision. As of 
this reading, the die may already be cast for 
the re-merger of two of the most exciting 
FIG groups in the world. If you are inter- 
ested in the preservation of both chapters, 
"vote with your feet" and help increase 
attendance in the Bay area. 

A new nationwide FIG Chapter is in the 
works for Spain. The interested parties 
recently contacted the Forth Interest Group 
and informed us that they could justify the 
existence of a FIG Chapter if it could be 
considered a national group, rather than re- 
gional, to which we gave our happy assent. 
Interested parties should contact: 

Borja Marcos 
Alangoeta, 11, Iro izq. 
48990 - Algorta (Vizcaya) 
Spain 

We are informed that a persistent prob- 
lem with FIG Chapters continues unabated: 
that is, the moving and/or disappearance of 
Chapters without forwarding addresses or 
notifications of the Forth Interest Group. 
This problem, and the perception on our 
part diat the central organization is losing 
(has lost?) contact with the needs of the 
membership, prompts us to undertake a 
simple experiment. 

After this issue of Forth Dimensions is 
published, the Chapter Coordinator (pre- 
sumably still the author by that time) will 
telephone around to all the North American 
chapters and try to verify their existence 
and get an introduction to their coordina- 
tors and insight into their operation. 

Please notify me, if possible, if there is 
a time when you (i.e., the contact party 
listed in the directory at the back of this 
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magazine) would prefer to be contacted. I 
can be reached during working hours at 
303-422-8088. My computer bulletin 
board is 303-278-0364 (300/1200/2400, 24 
hours). My email addresses are 
jax@ well {.UUCP, .sf.ca.us} 
andnCCHAPTERS or JAX on GEnie. My 
mailing address is: 

JackWoehr 

Vesta Technology, Inc. 

Suite 101 

7100 W. 44th Ave. 

Wheat Ridge, Colorado 80033 

I look forward to chatting with as many 
of you as I can reach, as we work together 
to set the agenda for the Forth Interest 
Group for the new decade. 



(Reference Section continued) 

SysOps: Dennis Ruffer (D.RUFFER), 
Scott Squires (S.W.SQUIRES), Le- 
onard Morgenstern (NMORGEN- 
STERN), Gary Smith (GARY-S) 

• MACH2RoundTable 
Type M450 or MACH2 
Palo Alto Shipping Company 
SysOp: Waymen Askey (D.MILEY) 

BIX(ByteNet) 

For information, caU 800-227-2983 

• Forth Conference 

Access BIX via TymeNet, then type j 
forth 

Type FORTH at the : prompt 
SysOp: Phil Wasson (PWASSON) 

• LMI Conference 

Type LMI at the : prompt 
Laboratory MicroSystems products 
Host: Ray Duncan (RDUNCAN) 

CompuServe 

For information, caU 800-848-8990 

• Creative Solutions Conference 
Type !Go FORTH 

SysOps: Don Colbum, Zach Zachariah, 
Ward McFarland, Jon Bryan, Greg 
Guerin, John Baxter, John Jeppson 

• Computer Language Magazine Confer- 
ence 

Type !Go CLM 

SysOps: Jim Kyle, Jeff Brenton, Chip 
Rabinowitz, Regina Starr Ridley 



Unix BBS's with fortkcortf (ForthNet 
links* and reachable via StarLink node 
9533 on TymNet and PC-Pursuit node 
casfa on TeleNet.) 

• WELL Forth conference 

Access WELL via CompuserveNet 
or 415-332-6106 
Fairwitness: Jack Woehr (jax) 

• Wetware Forth conference 
415-753-5265 

Fairwitness: Gary Smith (gars) 

PC Board BBS' s devoted to Forth 
(ForthNet links*) 

• East Coast Forth Board 
703-442-8695 

StarLink node 2262 on TymNet 
PC-Pursuit node dcwas on TeleNet 
SysOp: Jerry Schifrin 

• British Columbia Forth Board 
604-434-5886 

SysOp: Jack Brown 

• Real-Time Control Forth Board 
303-278-0364 

StarLink node 2584 on TymNet 
PC-Pursuit node coden on TeleNet 
SysOp: Jack Woehr 

Other Forth-specific BBS's 

• Laboratory Microsystems, Inc. 
213-306-3530 

StarLink node 9184 on TymNet 
PC-Pursuit node calan on TeleNet 
SysOp: Ray Duncan 

• Knowledge-Based Systems 
Supports Fifth 
409-696-7055 

• Druma Forth Board 
512-323-2402 

StarLink node 1306 on TymNet 
SysOps: S. Suresh, James Martin, Anne 
Moore 

• Harris Semiconductor Board 
407-729-4949 

StarLink node 9902 on TymNet (toll 
from Post St. Lucie) 

Non-Forth-specific BBS's with extensive 
Forth Libraries 

• Twit's End (PC Board) 
501-771-0114 
1200-9600 baud 

StarLink node 9858 on TymNet 
SysOp: Tommy Apple 

• CoUege Comer (PC Board) 
206-643-0804 
300-2400 baud 

SysOp: Jerry Houston 



International Forth BBS's 

• Melbourne FIG Chapter 
(03) 299-1787 in Australia 
61-3-299-1787 international 
SysOp: Lance Collins 

• Forth BBS JEDI 
Paris, France 

33 3643 15 15 

7 data bits, 1 stop, even parity 

• MaxBBS (ForthNet lir^*) 
United Kingdom 

0905 754157 
SysOp: Jon Brooks 

• Sky Port (ForthNet link*) 
United Kingdom 
44-1-294-1006 
SysOp: Andy Brimson 

• SwenG 

Per Aim Sweden 
46-8-71-35751 

This list was accurate as of October 1989. 
If you know another on-line Forth re- 
source, please let me know so it can be 
included in this list. I can be reached in the 
following ways: 

Gary Smith 

P. O. Drawer 7680 

Little Rock, Arkansas 72217 

Telephone: 501-227-7817 

GEnie (co-SysOp, Forth RT and Unix 

RT): GARY-S 

Usenet domain: 

uunetlwugate! 

wuarchiveltexbell! 

ark!lrark!gars 



*ForthNet is a virtual Forth network 
that links designated message bases in 
an attempt to provide greater informa- 
tion distribution to the Forth users 
served. It is provided courtesy of the 
SysOps of its various links. 
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FIG 

CHAPTERS 



The FIG Chapteis listed below 
are currently registered as active 
with regular meetings. If your 
chapter listing is missing or incor- 
rect, please contact Kent Safford at 
the FIG office's Chqjter Desk. 
This listing will be updated in each 
issue of Forth Dimensions. If you 
would like to begin a FIG Chapter 
in your area, write for a "Chapter 
Kit and Application." Forth Inter- 
est Group, P.O. Box 8231, San 
Jose, California 95155 

U.S.A. 

. ALABAMA 
Huntsville Chapter 

Tom Konantz 
(205)881-6483 

• ALASKA 

Kodiak Area Chapter 

Ric Shepard 
Box 1344 

Kodiak, Alaska 99615 

• ARIZONA 
Phoenix Chapter 

4thThurs., 7:30 p.m. 
Arizona State Univ. 
Memorial Union, 2nd floor 
Dennis L. Wilson 
(602)381-1146 

• ARKANSAS 

Central Arkansas Chapter 

Little Rock 

2ndSat., 2pjn. & 

4th Wed., 7 p.m. 

Jungkind Photo, 12th & Main 

Gaiy Smith (501) 227-7817 



• CALIFORNIA 

Los Angeles Chapter 
4th Sat, 10 ajn. 
Hawthorne Public Library 
12700 S.Grevillea Ave. 
Phillip Wasson 
(213) 649-1428 

North Bay Chapter 
2nd Sat., 10 a.m. Forth, AI 
12 Noon Tutorial, 1 p.m. Forth 
South Berkeley Public Library 
George Shaw (415) 276-5953 

Orange County Chapter 
4th Wed., 7 p.m. 
FuUerton Savings 
Huntington Beach 
Noshir Jesung (714) 842-3032 

Sacramento Chapter 
4th Wed., 7 p.m. 
1708-59th St., Room A 
Tom Ghormley 
(916) 444-7775 

San Diego Chapter 
Thursdays, 12 Noon 
Guy Kelly (619) 454-1307 

Silicon Valley Chapter 

4th Sat., 10 a.m. 

H-P Cupertino 

Bob Barr (408) 435-1616 

Stockton Chapter 

Doug Dillon (209) 931-2448 

• COLORADO 
Denver Chapter 
IstMon., 7 p.m. 

Clifford King (303) 693-3413 

. CONNECTICUT 
Central Connecticut Chapter 

Charles Krajewski 
(203) 344-9996 



• FLORIDA 
Orlando Chapter 

Every other Wed., 8 p.m. 
Herman B. Gibson 
(305) 855-4790 

Southeast Florida Chapter 

Coconut Grove Area 

John Forsberg (305) 252-0108 

Tampa Bay Chapter 

1st Wed., 7:30 p.m. 

Terry McNay (813) 725-1245 

• GEORGIA 
Atlanta Chapter 
3rd Tues., 7 p.m. 
Emprise Corp., Marietta 
Don Schrader (404) 428-081 1 

• ILLINOIS 

Cache Forth Chapter 
Oak Park 

Clyde W. Phillips, Jr. 
(312) 386-3147 

Central lUinois Chapter 

Champaign 

Robert Illyes (217) 359-6039 

• INDIANA 

Fort Wayne Chapter 

2nd Tues., 7 p.m. 

I/P Univ. Campus, B71 Neff 

Hall 

Blair MacDermid 
(219) 749-2042 

• IOWA 

Central Iowa FIG Chapter 
1st Tues., 7:30 p.m. 
Iowa State Univ., 214 Comp. 
Sci. 

Rodrick Eldridge 
(515)294-5659 



Fah-field FIG Chapter 

4th Day, 8:15 p.m. 

Gurdy Leete (515) 472-7077 

• MARYLAND 
MDFIG 

Michael Nemeth 
(301)262-8140 

• MASSACHUSETTS 
Boston Chapter 

3rd Wed., 7 p.m. 
Honeywell 

300 Concord, Billerica 

Gary Chanson (617) 527-7206 

• MICHIGAN 
Detroit/ Ann Arbor Area 

4th Thurs. 

Tom Chrapkiewicz 

(313)322-7862 

• MINNESOTA 
MNFIG Chapter 

Miimeapolis 
Fred Olson 
(612) 588-9532 

• MISSOURI 
Kansas City Chapter 
4th Tues., 7 p.m. 
Midwest Research Institute 
MAG Conference Center 
Linus Orth (913) 236-9189 

St. Louis Chapter 
1st Tues., 7 p.m. 
Thomhill Branch Library 
Robert Washam 
91 Weis Drive 
EllisviUcMO 63011 

• NEW JERSEY 
New Jersey Chapter 

Rutgers Univ., Piscataway 
Nicholas Lordi 
(201)338-9363 
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. NEW MEXICO 
Albuquerque Chapter 

IstThurs., 7:30 p.m. 
Physics & Astronomy Bldg. 
Univ. of New Mexico 
Jon Bryan (505)298-3292 

• NEW YORK 
Rochester Chapter 

Odd month, 4th Sat., 1 p.m. 
Monroe Comm. College 
Bldg. 7, Rm. 102 
Frank Lanzafame 
(716)482-3398 

• OfflO 
Cleveland Chapter 
4thTues., 7 p.m. 
Chagrin Falls Library 
Gary Bergstrom 
(216)247-2492 

• Columbus FIG Chapter 

4th Tues. 

Kal-Kan Foods, Inc. 
5115 Fisher Road 
Terry Webb 

(614) 878-7241 

Dayton Chapter 

2nd Tues. & 4th Wed., 6:30 
p.m. 

CFC. 11 W. Monument Ave. 
#612 

Gary Ganger (513) 849-1483 

• OREGON 

Willamette Valley Chapter 
4th Tues., 7 p.m. 
Liim-Benton Comm. College 
Pann McCuaig (503) 752-51 13 

• PENNSYLVANIA 

Villanova Univ. Chapter 
IstMon., 7:30 p.m. 
Villanova University 
Dennis Clark 
(215) 860-0700 

. TENNESSEE 
East Tennessee Chapter 
Oak Ridge 
3rd Wed., 7 p.m. 
Sci. Appl. Int'l. Corp., 8th Fl. 
800 Oak Ridge Turnpike 
Richard Secrist 

(615) 483-7242 

• TEXAS 
Austin Chapter 

Matt Lawrence 
POBox 180409 
Austin, TX 78718 



Dallas Chapter 
4th Thurs., 7:30 pjn. 
Texas Instruments 
13500 N. Central Expwy. 
Semiconductor Cafeteria 
Conference Room A 
ClifPenn(214) 995-2361 

Houston Chapter 

3rd Men., 7:30 p.m. 
Houston Area League of PC 
Users 

1200 Post Oak Rd. 
(Galleria area) 
Russell Harris 
(713)461-1618 

• VERMONT 
Vermont Chapter 

Vergermes 
3rd Mon., 7:30 p.m. 
Vergermes Union High School 
RM 210, Monkton Rd. 
Hal Clark (802) 453-4442 

• VIRGINIA 

First Forth of Hampton 
Roads 

William Edmonds 
(804) 898^099 

Potomac FIG 

D. C. & Northern Virginia 
1st Tues. 

Lee Recreation Center 
5722 Lee Hwy., Arlington 
Joseph Brown 
(703)471-4409 

E. Coast Forth Board 
(703) 442-8695 

Richmond Forth Group 
2nd Wed., 7 p.m. 
154 Business School 
Univ. of Richmond 
Donald A. Full 
(804) 739-3623 

• WISCONSIN 

Lake Superior Chapter 
2nd Fri., 7:30 p.m. 
1219 N. 21st St., Superior 
AUen Anway (715) 394-4061 



INTERNATIONAL 

• AUSTRALIA 
Melbourne Chapter 

1st Fri., 8 p.m. 

Lance Collins 

65 Martin Road 

Glen Iris, Victoria 3146 

03/29-2600 

BBS: 61 3 299 1787 



Sydney Chapter 

2nd Fri., 7 p.m. 

John Goodsell Bldg., RM 

LG19 

Univ. of New South Wales 

Peter Tregeagle 

10 Binda Rd. 

Yowie Bay 2228 

02/524-7490 

Usenet 

tedi@usage.csd.imsw.oz 

• BELGIUM 
Belgium Chapter 
4th Wed., 8 p.m. 
Lxik Van Loock 
Lariksdreff 20 
2120 Schoten 
03/658-6343 

Southern Belgium Chapter 

Jean-Marc Bertinchamps 
Rue N. Monnom, 2 
B-6290 Nalinnes 
071/213858 

• CANADA 
BC FIG 

1st Thiu-s., 7:30 p.m. 
BCrr, 3700 Willingdon Ave. 
BBY, Rm. lA-324 
JackW. Brown (604) 596- 
9764 

BBS (604) 434-5886 

Northern Alberta Chapter 
4th Sat., 10a.m.-noon 
N.Alta. Inst, of Tech. 
Tony Van Muyden 
(403) 486-6666 (days) 
(403) 962-2203 (eves.) 

Southern Ontario Chapter 

Quarterly, 1st Sat., Mar., Jun., 

Sep., Dec, 2 p.m. 

Genl. Sci. Bldg., RM 212 

McMaster University 

Dr. N. Solntseff 

(416) 525-9140 x3443 

• ENGLAND 

Forth Interest Group-UK 
London 

IstThurs., 7 p.m. 

Polytechnic of South Bank 

RM408 

Borough Rd. 

D.J. Neale 

58 Woodland Way 

Morden, Surry SM4 4DS 

• FINLAND 
FlnFIG 

Jaime Kotiranta 
Arkkitehdinkatu 38 c 39 
33720 Tampere 
-1-358-31-184246 



• HOLLAND 
Holland Chapter 

Vic Van de Zande 
Fimnark7 
3831 JE Leusden 

• ITALY 
FIG Italia 

Marco Tausel 

Via Gerolamo Fomi 48 

20161 Milano 

02/435249 

• JAPAN 
Japan Chapter 

Toshi Inoue 

Dept. of Mineral Dev. Eng. 
University of Tokyo 
7-3-1 Hongo,Bunkyo 113 
812-2111 x7073 

• NORWAY 
Bergen Chapter 

Kjell Birger Faeraas, 
47-518-7784 

• REPUBLIC OF CHINA 
R.O.C. Chapter 

Chin-Fu Liu 

5F, #10, Alley 5, Lane 107 
Fu-Hsin S. Rd. Sec. 1 
TaiPei, Taiwan 10639 

• SWEDEN 
SweFlG 
Per Aim 
46/8-929631 

• SWITZERLAND 
Swiss Chapter 
Max Hugelshofer 
Industrieberatung 
Ziberstrasse 6 
8152 Opfikon 

01 810 9289 

. WEST GERMANY 
German FIG Chapter 

Heinz Schnitter 

Forth-GeseUschaft C.V. 

Postfach 1110 

D-8044 Unterschleissheim 

(49) (89) 317 3784 

Munich Forth Box: 

(49) (89) 725 9625 (telcom) 

SPECIAL GROUPS 

• NC4000 Users Group 
John Carpenter 

1698 Villa St 

Mountain View, CA 94041 

(415) 960-1256 (eves.) 
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1990 Rochester Forth Conference 

ON 

EMBEDDED SYSTEMS 

June, 1990 
University of Rochester 
Rochester, New York 



Call for Papers 

There is a call for papers on the use of Forth 
technology in Embedded Systems. Papers are 
limited to 5 pages, and abstracts to 100 words. 
Longer papers will be considered for review in 
the refereed Journal of Forth Application and 
Research. 

Please send abstracts by March 15, 1990 and final 
papers by May 15, 1990. 



For more information, contact: 

Lawrence P. Forsley 

Conference Chairman 

Institute for Applied Forth Research, Inc. 

70 Elmwood Avenue 

Rochester, NY 14611 

(716)-235-0I68 • (716).328-6426 (FAX) 



Forth Interest Group 
P.O. Box 8231 
San Jose, CA 95155 
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